Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Sich bewegende GIF-Grafik in UserForm

Gruppe

Image

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