Zeitsteuerung laüft nicht
Stefanglander
folgenden Code habe ich gefunden:
Sub auto_open()
Dim Startbild As Object
Set Startbild = ActiveSheet.Pictures.Insert("C:/Bild.gif")
Application.Wait (Now + TimeSerial(0, 0, 3))
Startbild.Delete
End Sub
nun mein Problem, irgendwie haut das nicht hin.Wenn ich die Zeilen mit Application wait entferne klappt es,.... nur das das Bild eben nicht verschwindet nach 3 Sekunden. Lasse ich den Teile des Code stehen geht das Bild nach ca 3 Sekunden auf abe rist sofort wieder verschwunden.
Weiß jemand Rat ?
Gruß
Stefan