Displaying a flash screen image on start-up

  • Thread starter Thread starter Roger on Excel
  • Start date Start date
R

Roger on Excel

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
 
Back
Top