Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formular automatisch der Bildschirmgröße anpassen

Forumthread: Formular automatisch der Bildschirmgröße anpassen

Formular automatisch der Bildschirmgröße anpassen
24.02.2004 16:45:15
Rüdiger
Hallo zusammen,
gibt es eine Möglichkeit, die Größe eines Formulars (User-form) variabel zu gestallten, sodass sich dieses immer exakt auf den gesamten Bildschirm ausbreitet? Ich habe feslgestellt, dass ich ein Formular auf meinem Bildschirm noch komplett erkennen konnte, wohingegen dieses auf einem anderen Bildschirm nur teilweise sichtbar war.
Vielleicht kann man unter Eigenschaften etwas eintellen?
Gruß Rüdiger.
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formular automatisch der Bildschirmgröße anpassen
24.02.2004 16:49:48
Fabian
Hi Rüdiger,
schau mal im Archiv oder in Google nach, wie man per VBA die Auflösung des Systems ermittelt. Davon abhängig kannst Du dann die Größe Deiner Forms ändern... ist allerdings viel Handarbeit und ziemlich aufwändig.
Viele Grüsse
Fabian
AW: Formular automatisch der Bildschirmgröße anpassen
24.02.2004 17:10:02
Rüdiger
Vielen Dank für Eure Hilfe.
Rüdiger
AW: Formular automatisch der Bildschirmgröße anpassen
24.02.2004 16:52:38
Jan P
Hallo Rüdiger,
probier mal:
Application.DisplayFullScreen = True
With NameDerUserForm
.Height = Application.Height
.Width = Application.Width
End With
Gruß Jan
;
Anzeige

Infobox / Tutorial

Formular automatisch der Bildschirmgröße anpassen


Schritt-für-Schritt-Anleitung

Um ein Formular in Excel automatisch der Bildschirmgröße anzupassen, kannst Du die folgenden Schritte befolgen:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Erstelle ein neues UserForm:

    • Klicke mit der rechten Maustaste auf dein Projekt im Projektfenster, wähle "Einfügen" und dann "UserForm".
  3. Füge den folgenden Code ein:

    • Klicke doppelt auf das UserForm und füge den Code ein, um die Größe des Formulars anzupassen:
      Private Sub UserForm_Initialize()
      Application.DisplayFullScreen = True
      With Me
         .Height = Application.Height
         .Width = Application.Width
      End With
      End Sub
  4. Teste das Formular:

    • Schließe den VBA-Editor und starte das Formular, um sicherzustellen, dass es sich an die Bildschirmgröße anpasst.

Häufige Fehler und Lösungen

  • Das Formular wird nicht richtig angezeigt:

    • Stelle sicher, dass Du den Code im UserForm_Initialize-Ereignis eingefügt hast. Dieser Code wird beim Öffnen des Formulars ausgeführt.
  • Formular wird auf verschiedenen Bildschirmen nicht korrekt skaliert:

    • Überprüfe die Bildschirmauflösungen der verschiedenen Bildschirme. Es kann notwendig sein, den Code anzupassen, um die spezifischen Auflösungen zu berücksichtigen.

Alternative Methoden

Eine alternative Methode zur Anpassung eines Access-Formulars an die Bildschirmgröße besteht darin, die Eigenschaften des Formulars direkt im Designmodus zu ändern. Du kannst die Größe und Position der Steuerelemente so einstellen, dass sie sich dynamisch an die Bildschirmgröße anpassen.

Des Weiteren kann die Verwendung von API-Aufrufen in VBA helfen, die Bildschirmauflösung direkt zu ermitteln und dadurch präzisere Anpassungen vorzunehmen.


Praktische Beispiele

Hier sind einige praktische Beispiele, die Du ausprobieren kannst:

  1. Formular mit dynamischen Steuerelementen:

    • Füge Steuerelemente wie Schaltflächen und Textfelder hinzu, die sich proportional zur Größe des Formulars ändern. Dies kann mithilfe von Code innerhalb des UserForm_Resize-Ereignisses erfolgen.
  2. VBA zur Bildschirmauflösungsanpassung:

    • Verwende den folgenden Code, um die Bildschirmauflösung zu ermitteln und das Formular entsprechend anzupassen:
      
      Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

    Private Sub UserForm_Initialize() Me.Height = GetSystemMetrics(1) ' Höhe Me.Width = GetSystemMetrics(0) ' Breite End Sub


Tipps für Profis

  • Vermeide feste Größen: Benutze relative Größen und Positionen für Steuerelemente, um sicherzustellen, dass sie sich dynamisch anpassen.

  • Testen auf verschiedenen Geräten: Teste Dein Formular auf verschiedenen Bildschirmen, um sicherzustellen, dass die Anpassungen gut funktionieren.

  • Dokumentation: Halte die verwendeten Methoden und Codes dokumentiert, um bei zukünftigen Projekten darauf zurückgreifen zu können.


FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass das UserForm auf jedem Bildschirm gut aussieht? Um sicherzustellen, dass das UserForm auf jedem Bildschirm gut aussieht, teste es auf verschiedenen Geräten und passe die Code-Logik entsprechend an.

2. Gibt es eine Möglichkeit, die Einstellungen für die Bildschirmgröße für zukünftige Formulare zu speichern? Ja, Du kannst eine globale Funktion oder ein Modul erstellen, das die Bildschirmgröße ermittelt und diese dann in jedem neuen UserForm verwendest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige