toolbar ausschalten, adressbar eingeschalten
Michael
Mit welchen befehl kann man die Tollbars ausschalten bzw. so gestalten, dass nur noch die adressbar eingeblendet ist. Der Befehl .toolbar = 4 blendet alles aus!
(objIE1.Toolbar = 3 '
objIE1.addressbar = True)
so klappt es nicht
Danke im voraus
Michael
Sub ERMITTELN() 'INTERNETBILD FESTLEGEN WO LIEGT ES
Dim objIE1 As Object
Set objIE1 = CreateObject("InternetExplorer.Application") ' Für IE Fenster 1
objIE1.Top = 0 ' Position von oben
objIE1.Left = 0 ' Position von links
objIE1.Width = 1280 ' 1280 1280 ' Fenster breite
objIE1.Height = 1024 ' 800 1024 ' Fensterhöhe
objIE1.Visible = True ' Objekt für IE Fenster 1
objIE1.Navigate "http://books.google.de/books" ' Objekt für IE Fenster Adresse ORGINAL
'objIE1.fullscreen = True
objIE1.Toolbar = 3 '
objIE1.addressbar = True
'end
Sub ' Apostroph entfernen nicht vergessen
'**** bis hierhin kopieren ************
' Nach Beendigung des Codes sollten die zwei Objecte gelöscht werden
'objE1.Exit
' info das gleich nur mit yesno schleife, wenn es denn benötigt wird
Do While Not objIE1.ReadyState = 4
DoEvents
Loop
MsgBox " Alles ok"
objIE1.Quit
'Set Internet = Nothing
End Sub
'***************************