Echter Vollbildmodus

Hallo zusammen!
Ich habe eine große Excel Datei - also die ist wirklich sehr groß und passt fast nicht auf den Bildschirm. Aus dem Grund möchte ich in den Vollbildmodus wechseln und so viel wie möglich ausblenden. Alles was nicht notwendig ist, soll weg, damit möglichst viel Platz für meine XXL Datei ist.
Die Scrollbalken und Excel Menüleisten konnte ich mit folgendem Makro los werden:
Sub FensterXXL()
Application.DisplayHeadings = True
Application.DisplayFormulaBar = False
Application.DisplayFullScreen = False
Application.DisplayHorizontalScrollBar = False
Application.DisplayVerticalScrollBar = False
Exit Sub
Allerdings halten sich hartnäckig die Eingabezeile oben sowie die Reiter unten. Ich habe bei google gesucht und auch schon hier im Forum gewühlt aber konnte nichts finden was passt. Ich nutze Excel 2007, da bleiben immer diese beiden Bereiche übrig.
Ich wäre echt froh, wenn jemand einen Trick kennt!!!
Schon mal vielen Dank an alle,
Peter
So schaut's aus:
Userbild

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub vollbild() ActiveWindow.DisplayHeadings = True Application.DisplayFormulaBar = False Application.DisplayFullScreen = False ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False End Sub

Hallo Peter,
die von dir vermissten Eigenschaften sind keine Eigenschaften des Applicaion-Objekts, sondern des Window-Objektes respektive des Workbook-Objektes.
Nachfolend die Makros zum Ein-/AUsschalten des Fullscreenmodus. Dabei werden die Einstellungen der Mappe vor der Fullscreen-Anzeige in Merkern gespeichert.
Gruß
Franz

Option Explicit
'Merker-Variablen für Display-Einstellungen der Arbeitsmappe
Private bolHeadings As Boolean, bolHScrollBar As Boolean, bolVScrollbar As Boolean
Private bolWorkTabs As Boolean
Private wbk As Workbook
Sub aaScreenFull()
'Fullscreen anzeigen
If Not wbk Is Nothing Then
If MsgBox("Die Fullscreeneinstellungen für """ & wbk.Name _
& """ wurden noch nicht zurückgesetzt." _
& vbLf & "Makro ""aaScreenNormal"" jetzt starten?", _
vbQuestion + vbOKCancel, "Fullscreen zurücksetzen") = vbOK Then
Call aaScreenNormal
Else
Exit Sub
End If
End If
Set wbk = ActiveWorkbook
With Application.Windows(wbk.Name)
bolHeadings = .DisplayHeadings
.DisplayHeadings = False
bolHScrollBar = .DisplayHorizontalScrollBar
.DisplayHorizontalScrollBar = False
bolVScrollbar = .DisplayVerticalScrollBar
.DisplayVerticalScrollBar = False
bolWorkTabs = .DisplayWorkbookTabs
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayFullScreen = True
End With
End Sub
Sub aaScreenNormal()
'Fullscreen zurücksetzen
If wbk Is Nothing Then
MsgBox "Makro ""aaScreenFull"" wurde noch nicht gestartet.", _
vbInformation, "Fullscreen zurücksetzen"
Else
With Application.Windows(wbk.Name)
.DisplayHeadings = bolHeadings
.DisplayHorizontalScrollBar = bolHScrollBar
.DisplayVerticalScrollBar = bolVScrollbar
.DisplayWorkbookTabs = bolWorkTabs
End With
With Application
.DisplayFormulaBar = True
.DisplayFullScreen = False
End With
End If
Set wbk = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

3 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Echter Vollbildmodus

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread