Hallo zusammen,
ich komme bei oben genannten Thema leider nicht weiter. Ich würde mich freuen, wenn ihr mir helfen würdet. :-)
Und zwar möchte ich gerne während der Ausführung eines Codes ein UserForm mit einem integrierten GIF anzeigen lassen. Ich möchte dem Benutzer damit zeigen, dass aktuell eine Berechnung stattfindet. Doch leider wird die GIF nicht animiert während der Ausführung nicht animiert. Sie wird nur eingefroren angezeigt. Sofern ich nur das Userform aufrufe, läuft die Animation wunderbar...
Außerdem hab ich ein Problem mit der Größe des GIFs. Ich würde die gerne skalieren bzw. in den Rahmen einpassen.
Zu beiden Punkten habe ich bereits sämtliche Foren durchsucht, konnte aber mein Problem dadurch leider nicht lösen.
Ich freue mich auf eure Antworten!
Gruß
Christoph
Hier noch meine aktuellen Codes zum Testen:
Sub Button()
'Load UserForm1
UserForm1.Show False
DoEvents
'UserForm1.Repaint
'Application.Wait Now + TimeValue("00:00:01")
Application.Run "Schachbrett"
Unload UserForm1
End Sub
Sub Schachbrett()
For i = 1 To 2
Farbe = Int(16777216 * Rnd)
For Row = 1 To 2
Application.Wait Now + TimeValue("00:00:01")
If WorksheetFunction.IsOdd(Row) Then
For Col = 2 To 8 Step 2
Cells(Row, Col).Interior.Color = Farbe
Next Col
Else
For Col = 1 To 8 Step 2
Cells(Row, Col).Interior.Color = Farbe
Next Col
End If
Next Row
Next i
End Sub
Private Sub UserForm_Initialize()
'WebBrowser1.Navigate "C:\Users\Christoph\Desktop\Bana.gif"
WebBrowser1.Navigate "about:<html><body scroll=no><img src =""C:\Users\Christoph\Desktop\Bana.gif""></img></body></html>"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Style.Border = "none"
WebBrowser1.Document.body.Scroll = "no"
End Sub
|