Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

toolbar ausschalten, adressbar eingeschalten | Herbers Excel-Forum


Betrifft: toolbar ausschalten, adressbar eingeschalten von: Michael
Geschrieben am: 12.11.2009 11:35:49

Hallo!
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

    '***************************

  •   

    Betrifft: AW: toolbar ausschalten, adressbar eingeschalten von: Sven
    Geschrieben am: 12.11.2009 13:47:15

    Hi Michael,

    das sollte die "Adressebar" einschalten:

    ActiveWindow.DisplayHeadings = True

    Gruß, Sven


      

    Betrifft: AW: toolbar ausschalten, adressbar eingeschalten von: Michael
    Geschrieben am: 13.11.2009 08:44:22

    Danke, aber leider klappt das nicht!



    Mein Internetexplorer soll beim starten beiben wie er ist. Nur über VBA mit excel soll der nur mit der adressbar öffnen. Wie schaltet man über vba die yahoo und google bar aus?



    Gruß Michael


      

    Betrifft: AW: toolbar ausschalten, adressbar eingeschalten von: Michael
    Geschrieben am: 13.11.2009 08:44:22

    Danke, aber leider klappt das nicht!



    Mein Internetexplorer soll beim starten beiben wie er ist. Nur über VBA mit excel soll der nur mit der adressbar öffnen. Wie schaltet man über vba die yahoo und google bar aus?



    Gruß Michael


      

    Betrifft: AW: toolbar ausschalten, adressbar eingeschalten von: Sven
    Geschrieben am: 13.11.2009 11:05:31

    sry, da bin ich überfragt ...

    Gruß, Sven


      

    Betrifft: AW: toolbar ausschalten, adressbar eingeschalten von: Michael
    Geschrieben am: 13.11.2009 11:22:58

    Danke!
    Auch wenn ich jetzt auf dem Schlauch stehe. ;-)