Ein Bild einige Zeit anzeigen (Tipp_46) -
04.11.2007Professionelle Software startet immer mit einem Firmen-Logo oder einem anderen Startbildschirm, der nach einigen Sekunden wieder verschwindet.
Auch mit EXCEL-Anwendungen läßt sich so etwas realisieren. Wenn Sie eine eigene Anwendung erstellt haben und z. B. ein Bild beim Aufruf der Datei anzeigen lassen wollen, dann benutzen Sie das folgende Makro:
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
Das Bild wird beim Öffnen der Datei 3 Sekunden lang angezeigt und verschwindet dann. Die zugehörige Bilddatei bild.gif muß sich im Verzeichnis C: befinden.
