HERBERS Excel-Forum - die Beispiele

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

Home

Gruppe

API

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

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

Datum + Uhrzeit aus Textbox richtig in Zelle Laufzeit ermitteln
Laufzeitfehler 438 Laufzeitfehler '13'
Excel to Word Kapitel VBA Anfangskapital berechnen
Akt. Datum und Uhrzeit am gedruckten Dokument VBA: UF Laufzeitfehler
SVERWEIS mit wahr via Zeit hh:mm bzw. hh:mm:ss 4 gleiche Gruppen aus 40 Zeiten/Läufern
Wandlung Connectstring für Uhrzeit Laufzeitfehler 1004: Anwendungs- oder objektorient
Gestapelte Säulen-Diagramm: Ich kapier's nicht Laufzeitfehler 104 automatisches Starten von Makro
Blatt als pdf mit Datum Uhrzeit Googel Maps API in Excel VBA einfügen
XLTM wird von ca. 200 Pers. gleichzeitig geöffnet Auswertung_Uhrzeiten_Schichtplan
Hilfe Laufzeitfehler wegen benutzerdef. Ansicht gleichzeitiges Ausfüllen mehrerer Zellen
Pastespecial-Methode - Laufzeitfehler 1004 Fehler Formel Zeitberechnung
Zeiten (diff. in Monaten) berechnen Zeiterfassung
mehrere TXT Datein gleichzeitig importieren Zahlen in Form von Uhrzeit darstellen
Lange Laderzeit XLS Dokument Format Datum / Uhrzeit
Zeitermittlung zwischen zwei Datumsfeldern MSGBox Zeitraum filtern
Zeitnachweis erstellen Zeitachse normieren
Datengröße evtl Makro Zeitberechnung Laufzeitfehler beim sortieren
Code in mehreren Tabellen gleichzeitig ausführen @ Tino (in Zeitraum Suchen)
In einem Zeitraum per VBA suchen Zeitberechnung
Laufzeitfehler 9 bei Makroaufzeichnung Uhrzeit automatisch eintragen
Laufzeitberechnungsformel Extremwert eines Zeitraumes ermitteln
Funktion Dezimal -> Zeit/ Variablen-Deklaration Zeitlich gesteuerte Abrufintervalle
Uhrzeit teilen und Ergebnis in Zahl ausgeben Laufzeitfehler 1004 bei Selection.Offset
Laufzeitfehler 2147417878 Klassen/Objekte zur Laufzeit entladen
Dateneingabe mit Datum+Uhrzeit vervollständigen VBA Zeitmessen