Bild automatisch schließen
14.07.2004 11:02:36
Andreas
kann mir jemand helfen? Ich möchte ein Bild aufrufen welches dann nach einer bestimmten Zeit wieder verschwindet!
Habe dieses Makro erstellt.Das Bild öffnet sich nur es verschwindet nicht.
Sub Auto_open()
Dim Pic As Picture
On Error GoTo fehlerm
Set Pic = ActiveSheet.Pictures.Insert("c:\Susi+Bretti.jpg")
Exit Sub
fehlerm:
MsgBox " Das Bild konnte nicht gefunden werden!"
End Sub
Sub CountdownEinstellen()
Application.OnTime _
Now + TimeValue("00:00:02"), "Pic Ende"
End Sub
Anzeige