Countdown
14.07.2004 12:01:40
Andreas
könnt ihr mir helfen?
Ich habe ein Makro erstellt der mir ein Bild anzeigt und dieses nach einer best. Zeit wieder schließen soll.Das Bild öffnet er automatisch nur er schließt es nicht.
Habt ihr eine Idee?
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