Office: Umschaltbutton>Ganzer Bildschirm an/aus

Welche Anweisung kann ich meinem Umschaltbutton geben, dass er beim ersten Klick einen FullScreen ( kompletter Bildschirm ohne jegliche Funktions und Symbolleisten ) wiedergibt und beim zweiten klick wieder in die normale Ansicht ( mit Symbolleisten etc.) wechselt?

Gruß Timi

 

Hallo!

Application.DisplayFullScreen = Not Application.DisplayFullScreen

 

Prima! Danke! Funktioniert!
Geht dieses FullScreen noch extremer ( quasi alles ausblenden und nur noch Tabellenblattansicht ) oder sind da bei Excel auch Grenzen gesetzt?
Gruß Timi

 

Hallo!

Ich glaube, mehr geht nicht, lasse mich aber auch gern eines besseren belehren...

 

Hallo
Hab' da eine Anweisung und weiß' nicht so recht, ob die OK ist.

Application.CommandBars.ActiveMenuBar.Enabled=False
Application.DisplayFullScreen=True

Kann jemand was damit anfangen? Ist die mit einem Umschaltbutton realisierbar(quasi an/aus)

Gruß Timi

 

Funktioniert doch prima!

Code:

Sub Makro1()
With Application
.CommandBars.ActiveMenuBar.Enabled = Not .CommandBars.ActiveMenuBar.Enabled
.DisplayFullScreen = Not .DisplayFullScreen
End With
End Sub

 

Und um die Zeilen- und Spaltenköpfe auch noch auszublenden:

ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings

 

Wie füge ich nun Deine letzten beiden Anweisungen sinnvoll zusammen, dass wirklich alles ausgeblendet bzw. eingeblendet wird?
Gruß Timi

 

Einfach so:

Code:

Sub Makro1()
With Application
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
.CommandBars.ActiveMenuBar.Enabled = Not .CommandBars.ActiveMenuBar.Enabled
.DisplayFullScreen = Not .DisplayFullScreen
End With
End Sub

 

Verschwinden bei Dir dann alle Symbolleisten oberhalb? Bei mir bleiben 3 Zeilen stehen!
Gruß Timi

 

Bei mir ist dann absolut ALLES bis auf die reinen Zellen weg!
(Excel2000)