Gruppe
Grafik
Problem
Wie kann ich in einem Arbeitsblatt sekundenlang ein Bild anzeigen lassen?
StandardModule: basMain
Sub Imageinout()
Dim pct As Picture
Set pct = ActiveSheet.Pictures.Insert(Range("B1").Value)
Application.Wait (Now + TimeSerial(0, 0, 1))
pct.Delete
End Sub