webBroswer startet nicht immer
16.08.2006 11:34:49
achim
wenn ich meine userform1 mit diesem code starte funzt es nicht.
wenn ich aber voher in der vba umgebung userform2 starte und da heraus dann userform1 dann geht der code.komisch!!!
was ist falsch?
Private Sub UserForm_Initialize()
Dim strPfad As String
strPfad = ThisWorkbook.Path & "\"
With WebBrowser1
.Navigate strPfad & "technik00014.gif"
Application.StatusBar = "Lade Bild im Browser..."
Do While .ReadyState READYSTATE_COMPLETE
DoEvents
Loop
Application.StatusBar = False
With .Document.body
.bgColor = "#FFFFE0"
.Scroll = "no"
.Style.Border = "none"
End With
End With
gruß
achim h.