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?
>