Animiertes Gif trotz UF Showmodal auf false
14.09.2007 20:52:11
Uwe
bin mal wieder an meiner Kontoliste am arbeiten.
Das einlesen der Kontodaten läuft prima jedoch braucht´s seine Zeit.
In dieser Zeit soll eine Userform aufgehen und ein animiertes gif ablaufen.
Damit der Code zum einlesen durchläuft, steht die Userform auf Showmodal=false.
Nachteil dabei ist jedoch das das animierte gif nicht läuft.
Gib´s da eine Abhilfe?
Option Explicit
Private Sub UserForm_Initialize()
WebBrowser1.Navigate "C:\Sicherung_W\SV-Büro\Dodge_Viper_59_5kb.gif"
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Me.WebBrowser1.Document.body.Scroll = "no"
Me.WebBrowser1.Document.body.Style.Border = "none"
End Sub
.....vorab schon mal Dank!!
Gruß Uwe