Thema: Bild für einen Zeitraum von weniger als 1 Sekunde zeigen

StandardModule: basMain

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Warten()
   Dim pct As Picture
   Dim sPct As String
   sPct = ThisWorkbook.Path & "\tileexc.gif"
   If Dir(sPct) = "" Then
      Beep
      MsgBox "Testdatei wurde nicht gefunden!"
      Exit Sub
   End If
   Set pct = ActiveSheet.Pictures.Insert(sPct)
   Sleep 200
   pct.Delete
End Sub

Beiträge aus dem Excel-Forum zu den Themen API und Zeit