VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Ein- und Auslesen der Seiteneinrichtung / Orientierung

Gruppe

Druck

Bereich

PageSetup

Thema

Ein- und Auslesen der Seiteneinrichtung / Orientierung

Problem

In UserForm-Optionsfelder soll die Seiteneinrichtungsfestlegung für die Orientierung ein und ausgelesen werden.

Lösung

Geben Sie den Ereigniscode in die nachfolgend genannten Module ein.




ClassModule: frmOrientation

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   If optPortrait.Value = True Then
      ActiveSheet.PageSetup.Orientation = xlPortrait
   Else
      ActiveSheet.PageSetup.Orientation = xlLandscape
   End If
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   If ActiveSheet.PageSetup.Orientation = xlPortrait Then
      optPortrait.Value = True
   Else
      optLandscape.Value = True
   End If
End Sub

StandardModule: basMain

Sub CallForm()
   frmOrientation.Show
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Druck und PageSetup