Laufzeitfehler '401'
21.08.2007 13:43:45
Thomas
Hallo,
aus UserForm1 heraus soll UserForm2 geöffnet und nach einer gewissen Zeit wieder geschlossen werden.
UserForm1:
Sub CommandButton1_Click()
UserForm2.Show vbModeless
Application.Wait (Now + TimeValue("0:00:10"))
Unload UserForm2
End Sub
UserForm2:
Sub UserForm_Initialize()
Me.Caption = "Animierte Gif"
End Sub
Sub UserForm_Activate()
Dim Pfad As String
Pfad = ThisWorkbook.Path & "\"
WebBrowser1.Navigate Pfad & "copynew.gif"
End Sub
Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Me.WebBrowser1.Document.body.Scroll = "auto"
Me.WebBrowser1.Document.body.Style.Border = "none"
Me.WebBrowser1.Document.bgColor = 100
End Sub
Leider bekomme ich schon nach ausführen der ersten Zeile in UserForm1 die Fehlermeldung:
Laufzeitfehler '401' Nicht modales-Formular kann nicht angezeigt werden, während modales Fromular angezeigt wird
Weiß jemand Abhilfe?
Gruß Thomas
Anzeige