HERBERS Excel-Forum - die Beispiele

Thema: Sich bewegende GIF-Grafik in UserForm

Home

Gruppe

Dialog

Problem

Wie kann ich erreichen, dass sich eine GIF-Grafik innerhalb einer UserForm bewegt?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
StandardModule: basMain

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

Sub CallForm()
   frmAnimation.Show
End Sub

ClassModule: frmAnimation

Private Sub cmdStart_Click()
   Dim iCol As Integer
   Dim iRow As Integer
   For iRow = 1 To 4
      For iCol = 6 To 216
         Sleep SpinButton1.Value
         Image1.Left = Image1.Left + 1
         DoEvents
      Next iCol
      Image1.Top = Image1.Top + 12
      For iCol = 216 To 6 Step -1
         Sleep SpinButton1.Value
         Image1.Left = Image1.Left - 1
         DoEvents
      Next iCol
      Image1.Top = Image1.Top + 12
   Next iRow
   Image1.Top = 6
   Image1.Left = 6
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub SpinButton1_Change()
   TextBox1.Text = SpinButton1.Value
End Sub

Private Sub UserForm_Initialize()
   SpinButton1.Value = 5
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und Image

xlDialogInsertHyperlink.show Arbeitmappen über Dialogfeld zusammen fassen
5.0 Dialog Speichern unter Dialog in Word aufrufen inkl. Pfad
Druckerdialog Dateityp im "Speichern unter"-Dialog vorgeben
Makro stoppen, wenn Excel-Dialog? xlDialogOpen anpassen
Klick in definierten Rangebereich startet Dialog Images per VBA Laden
xlDialogOpen bei Excel 2007 funzt nicht FileDialog inkl. Anklicken von Desktop, Eigene D.
Grösse Dialogfenster der InputBox Dialogfeld unterdrücken
ImageBox mit großen Bildern;bestimmte Teilbereiche Dialog "permanently delete sheets" unterbinden
Format-Dialog funktioniert nicht mehr Dialog "Verknüpfung aktualisieren"
Ordnerdialog und Dateidialog Ordnerdialog und dateidialog
Ordnerdialog und Dateidialog mehrere Images anzeigen
Filedialog image aktualisieren
gitter über image von Josef Ehrensberger gitter über image
image aktualisieren Herber/Beispiele/Dialoge/Checkbox/137601
Bilder bei Click im Dialogfeld Zelladresse eines Image
Suchdialog über VBA aufrufen mit Wert aus Combobox Dialog öffnen
Diagramm als Grafik mit Speicherdialog exportieren bild in image laden
Markierung in Image einer UF seltsames Image, seltsames Wasserzeichen
Dialogfenster zum kopieren FileDialog-Objekt unter O2k
Abrage von Dialogfeldargumenten Datei Auswählen Dialog (Application.FileDialog)
xlDialogOpen/FindFile ohne Open Dialogfeld zum pdf öffnen
Dialogfeld schließen, wenn Benutzer nichts eingibt Problem mit ApplicationDialogs
Das Dialogfeld "sortieren" aufrufen? Bild in Image laden
Keine Dialogbox bei SaveAs Markierung in einem Image einer UF
Dialogbox Bild im Image?