I would like to have an embedded image be shown for a few seconds on the
startup of a XL workbook.

The flash screen image would be embedded in the workbook.

Can anyone help?

Here is information on how to make a splash screen in Excel:

http://www.ozgrid.com/Excel/excel-splash-screen.htm

Perhaps you can change the code a bit to use an image.

For instance, set the Visible property of the image to True, and after the
short periode of time, set it back to Visible = False.

--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music


"Roger on Excel" wrote:

I would like to have an embedded image be shown for a few seconds on the
startup of a XL workbook.

The flash screen image would be embedded in the workbook.

Can anyone help?

This code will open an embeded object. You need to get the name of the
embedded object

use this
for each shp in sheets("Sheet1")
msgbox(shp.name)
next shp


Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Sheets("Sheet1").OLEObjects("object 1").Activate

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Sheets("Sheet1").OLEObjects("object 1").Close

End Sub

"Roger on Excel" wrote:

I would like to have an embedded image be shown for a few seconds on the
startup of a XL workbook.

The flash screen image would be embedded in the workbook.

Can anyone help?