IE Fenster maximieren
Mister
folgendes Makro habe ich im Archiv gefunden, dass ein Formular im Internet ausfüllt.
Sub Web()
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.application")
'False ist unsichtbar True ist Sichtbar
appIE.Visible = True
'Webseite?
appIE.Navigate "http://www.mustermuster.de"
While Not appIE.ReadyState = 4 'Warte auf Webseite
DoEvents
Wend
appIE.Document.all.ddl_bula.Value = "NI"
appIE.Document.all.ddl_knd_grp.Value = "J"
appIE.Document.all.txt_obj_nr.Value = "555555"
appIE.Document.all.txt_pwd.Value = "123456"
appIE.Document.all.lin_login.Click
''Webseite schliesen
'appIE.Quit
Set appIE = Nothing
End Sub
Das Makro funktioniert hervorragend aber ich hätte gern das Fenster maximiert. Wer kann sagen wie ich das Makro ergänzen soll?
Danke und Gruß
Martin