Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

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

Gruppe

Zeit

Problem

Wie kann ich in einem Tabellenblatt ein Bild für einen Zeitraum < 1 Sekunde anzeigen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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