Vollbild

Forumthread: Vollbild

Vollbild

18.09.2003 16:22:52

Marc

hallo zusammen

Ich habe folgendes Problem und zwar:
Nach dem ich ein Makro ausgeführt habe verkleinert sich die Fenstergrösse wie kann ich das im VBA ändern?

Besten Dank schon im Voraus

marc

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Vollbild

18.09.2003 16:43:03

RALPH.
AW: Vollbild

18.09.2003 16:46:21

Willie
Vielen Dank

19.09.2003 08:11:05

Marc
ein anderer Vorschlag wäre z.B.

18.09.2003 22:43:01

udo

AW: Vollbild

18.09.2003 16:43:03

RALPH.

Hallo Marc,

ich arbeite zwar mit excel version 8.0 aber ich hoffe die befehle funktionieren auch bei dir.

gruss - RALPH.

' Vollbildmodus
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False

' Fenster maximiert
Application.DisplayFullScreen = False
Application.WindowState = xlMaximized

' Fenster 640x480 oben links
With Application
.WindowState = xlNormal
.Width = 640 'Breite des Fensters
.Height = 480 'Höhe des Fensters
.Top = 0 'Position von oben
.Left = 0 'Position von links
End With

AW: Vollbild

18.09.2003 16:46:21

Willie

Hier hast du sämtliche möglichkeiten!
Gruß Willie
Application.DisplayFullScreen = True 'Fullscreen
Windows("Mappe1").Activate
ActiveWindow.WindowState = xlMaximized 'Maximales Fenster Normal
Windows("Mappe1").Activate
ActiveWindow.WindowState = xlMinimized 'Minmales Fenster Normal
Application.DisplayFullScreen = False 'Normalansicht

Vielen Dank

19.09.2003 08:11:05

Marc

Besten Dank an alle die sich gemeldet haben!
Hatte Gestern keine Zeit mehr eure Antworten auszuprobieren!

gruss

marc

p.s. wirklich ein super forum!!! das beste das ich je gesehen habe!!

ein anderer Vorschlag wäre z.B.

18.09.2003 22:43:01

udo

Hallo Marc,

zunächst mal, nicht vergessen, das Forum , sprich die vielen freiwilligen Helfer freuen sich auch über Rückmeldungen.
Nur so ist auch der allgemeine Lerneffekt zu untermauern, nur mal so nebenbei ;-)

Also ich biete dir mal zwei Makros an die du entsprechend einsetzen könntest.
Das Erste in ein Modul reinkopieren, und einem Button zuweisen , dieser schaltet es
dann ein und aus zugleich.

Das zweite wäre z.B. fürs Worksheet. sprich Tabellenblatt beim aktivieren, anwählen, und muss dementsprechend in ein Tabellenblatt verankert werden.

1.)

Sub fullscreen_ein()

If Application.CommandBars("Worksheet Menu Bar").Enabled = True Then
Application.CommandBars("Worksheet Menu Bar").Enabled = False

ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayWorkbookTabs = False
'ActiveSheet.Protect userinterfaceonly:=True
'DisplayHorizontalScrollBar = False
'DisplayVerticalScrollBar = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Else

Application.CommandBars("Worksheet Menu Bar").Enabled = True

ActiveWindow.DisplayHeadings = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
'ActiveSheet.Protect userinterfaceonly:=False
'DisplayHorizontalScrollBar = True
'DisplayVerticalScrollBar = True
ActiveSheet.Unprotect

End If
End Sub

' kanst dir ja die einzelnen Anweisungen die entsichert sind noch freigeben...

und 2.)

das wäre eine Lösung , wo sich die Auflösung deiner Tabelle, immer automatisch auf einen
bestimmten Bereich anpasst. egal an welchem Monitor 17er 19er 21er oder egal mit welcher
grafischen Auflösung du fährst. In deiner Tabelle werden ein bestimmter Zellverbund aus einer Zeile ( hier im Beispiel Zeile A ) von Spalte 1 (A) bis Spalte 8 (H), zuerst markiert, und dann die Auflösung an diese Markierung angepasst, so hat deine Ansicht deiner Tabelle immer die gleiche Größe , egal an welchem Rechner, und egal mit welchem Monitor diese dort dann zu sehen ist, passt sich also an den definierten Bereich automatisch an. Du kannst den Zellverbund aus der Zeile ja durch die Menge / Anzahl der Spalten, oder deren Breite noch deinen Vorstellungen entsprechend anpassen.

Sieht dann z.B. so aus...


Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
ActiveWindow.SmallScroll up:=10000 ' scrollt die Tabelle gleich mal nach oben
Range("A1:H1").Select  ' Zellverbund
Range("A1").Activate
ActiveWindow.Zoom = True  ' Bildauflösung ( Zoom ) an den Zellverbund anpassen
Range("A1").Select
Application.ScreenUpdating = True
End Sub

In diesem Sinne viel Erfolg, es leben die Rückmelder ;-) ....

Gruß udo ( udo-d@web.de )

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um Excel in den Vollbildmodus zu versetzen, kannst Du folgende VBA-Befehle verwenden. Diese Schritte zeigen, wie Du den Vollbildmodus aktivieren und das Fenster maximieren kannst.

Öffne den VBA-Editor in Excel (ALT + F11).
Füge ein neues Modul hinzu (Rechtsklick auf "VBAProject" > "Einfügen" > "Modul").
Kopiere den folgenden Code in das Modul:

Sub VollbildAktivieren()
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

Um den Vollbildmodus zu deaktivieren und das Fenster zu maximieren, kannst Du diesen Code verwenden:

Sub VollbildDeaktivieren()
    Application.DisplayFullScreen = False
    Application.WindowState = xlMaximized
End Sub

Du kannst diese Makros einem Button zuweisen, um den Vollbildmodus einfach zu aktivieren oder zu deaktivieren.

Häufige Fehler und Lösungen

Problem: Fenster bleibt nach einem Makro verkleinert.
- Lösung: Stelle sicher, dass Du nach der Ausführung des Makros den Fensterzustand zurücksetzt:
```
Application.WindowState = xlNormal
```
Problem: Nicht alle Excel-Versionen unterstützen die Vollbildfunktion.
- Lösung: Überprüfe die verwendete Excel-Version, da einige Befehle möglicherweise nicht in älteren Versionen funktionieren.

Alternative Methoden

Es gibt verschiedene Ansätze, um den Vollbildmodus in Excel zu aktivieren:

VBA für spezifische Arbeitsblätter: Du kannst den Vollbildmodus auch für spezifische Arbeitsblätter aktivieren, indem Du den Code im Worksheet-Objekt platzierst.

Private Sub Worksheet_Activate()
    Application.DisplayFullScreen = True
End Sub

Zoom-Funktion: Statt den Vollbildmodus zu verwenden, kannst Du auch die Zoom-Funktion nutzen, um die Ansicht Deiner Tabelle zu vergrößern, ohne in den Vollbildmodus zu wechseln.

Praktische Beispiele

Hier sind einige praktische Beispiele, um den Vollbildmodus in Excel zu nutzen:

Vollbild mit einem Button: Füge einen Button in Deine Excel-Datei ein und weise ihm das Makro VollbildAktivieren zu, um den Vollbildmodus mit einem Klick zu aktivieren.
Automatisches Anpassen der Ansicht: Du kannst auch die Ansicht Deiner Tabelle automatisch anpassen, wenn Du das Arbeitsblatt aktivierst:

Private Sub Worksheet_Activate()
    ActiveWindow.Zoom = True
End Sub

Tipps für Profis

Kombination mehrerer Befehle: Du kannst verschiedene VBA-Befehle kombinieren, um die Benutzeroberfläche zu optimieren und den Vollbildmodus nach Deinen Bedürfnissen anzupassen, z.B. durch Ausblenden von Steuerleisten.
Verwendung von ActiveWindow.DisplayWorkbookTabs: Wenn Du die Tab-Leiste im Vollbildmodus ausblenden möchtest, kannst Du ActiveWindow.DisplayWorkbookTabs = False verwenden.

FAQ: Häufige Fragen

1. Wie kann ich den Vollbildmodus wieder verlassen?
Du kannst den Vollbildmodus mit dem Makro VollbildDeaktivieren wieder verlassen, das den Befehl Application.DisplayFullScreen = False verwendet.

2. Funktioniert das auch in Excel für Windows 11?
Ja, die beschriebenen VBA-Befehle funktionieren auch in Excel unter Windows 11, solange Deine Excel-Version die entsprechenden Funktionen unterstützt.

3. Was mache ich, wenn das Fenster zu klein ist?
Du kannst die Fenstergröße mit Application.WindowState = xlNormal auf eine benutzerdefinierte Größe einstellen.

Beliebteste Forumthreads (12 Monate)