Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Userform Vollbild

Userform Vollbild
14.08.2014 21:46:56
Spenski
Hallo
hab mal ne frage zur UserForm..
Mit:
Private Sub UserForm_Initialize()
With Me
.Height = Application.Height
.Width = Application.Width
End With
End Sub

vergrösser ich die UF als Vollbild. gibts auch eine möcglichkeit das sich der UF inhalt (Textbox, Images usw...) mit vergrössern?
also das der selbe massstab bleibt?
gruss
Christian

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zoom ... owT
14.08.2014 21:47:44
Matthias

AW: Zoom ... owT
14.08.2014 22:33:16
Spenski
danke...hab darauf hun das gefunden und es klappt super
Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height
End With
End Sub

gruss und danke
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Userform im Vollbildmodus in Excel


Schritt-für-Schritt-Anleitung

Um eine UserForm in Excel im Vollbildmodus zu starten, kannst Du die folgenden Schritte befolgen:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Erstelle eine UserForm: Klicke auf Einfügen > UserForm.

  3. Füge den Code ein: Klicke doppelt auf die UserForm und füge den folgenden Code in das Codefenster ein:

    Private Sub UserForm_Initialize()
        With Application
            .WindowState = xlMaximized
            Zoom = Int(.Width / Me.Width * 100)
            Width = .Width
            Height = .Height
        End With
    End Sub
  4. Starte die UserForm: Schließe den VBA-Editor und starte die UserForm über das Hauptmenü oder ein Makro.

Mit diesem Code wird die UserForm im Excel Vollbildmodus geöffnet, und der Inhalt (wie Textboxen oder Bilder) wird entsprechend skaliert.


Häufige Fehler und Lösungen

  • Fehler beim Starten der UserForm: Stelle sicher, dass Du das Makro korrekt ausführst. Überprüfe auch, ob Du die richtige UserForm auswählst.

  • Inhalt wird nicht skaliert: Der Zoom wird möglicherweise nicht korrekt berechnet. Ändere die Berechnungsformel für den Zoom, um sicherzustellen, dass die UserForm-Inhalte proportional skaliert werden.


Alternative Methoden

Wenn Du eine andere Methode bevorzugst, um eine UserForm im Vollbild zu starten, kannst Du die Me.Height und Me.Width direkt auf die Bildschirmgröße setzen:

Private Sub UserForm_Initialize()
    With Me
        .Height = Application.Height
        .Width = Application.Width
    End With
End Sub

Diese Methode ist besonders nützlich, wenn Du sicherstellen möchtest, dass die UserForm den gesamten verfügbaren Platz auf dem ganzen Bildschirm einnimmt.


Praktische Beispiele

Hier ist ein einfaches Beispiel, um eine UserForm mit einem Textfeld und einem Bild im Vollbildmodus zu erstellen:

  1. Füge ein Textfeld und ein Bild in die UserForm ein.
  2. Verwende den zuvor genannten Code zur Initialisierung der UserForm.
  3. Teste die UserForm, um sicherzustellen, dass die Inhalte korrekt skaliert werden.

Tipps für Profis

  • Überlege, den VBA Fullscreen-Modus zu verwenden, um die Benutzeroberfläche zu verbessern. Dies kann durch das Verstecken der Excel-Menüleiste und anderer Steuerelemente erfolgen.

  • Achte darauf, dass Du die Vollbild Excel-Funktionalitäten optimal nutzt, um die Benutzererfahrung zu verbessern, indem Du interaktive Elemente hinzufügst, die in einem Vollbild besser zur Geltung kommen.


FAQ: Häufige Fragen

1. Wie kann ich die UserForm wieder schließen?
Du kannst die UserForm mit einem Schließen-Button oder durch Drücken von ESC schließen.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der Code sollte in den meisten modernen Excel-Versionen (2010 und neuer) funktionieren. Achte darauf, dass Du die Makros aktiviert hast.

3. Wie kann ich die UserForm anpassen, um unterschiedliche Bildschirmgrößen zu berücksichtigen?
Du kannst die Breite und Höhe der UserForm dynamisch anpassen, indem Du die Bildschirmauflösung berücksichtigst und den Code entsprechend anpasst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige