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