Klasse Window (Excel VBA)

Die Klasse Window stellt ein Fenster dar.

Die wichtigste Prozeduren der Klasse Window sind Activate und Close

Set

Um eine Window -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim wnd as Window
Set wnd = ActiveWindow

Die folgenden Prozeduren können zum Festlegen der Window Klassenvariablen verwendet werden : Application.ActiveWindow, NewWindow, Windows.Item, Workbook.NewWindow, Application.Windows, Selection und Workbook.Windows

For Each

Hier ist ein Beispiel für die Verarbeitung der Window -Elemente in einer Sammlung

Dim wnd As Window
For Each wnd In Windows
	
Next wnd

Themas

Einige Prozeduren in dieser Klasse wurden in Themen zusammengefasst und auf separaten Themenseiten beschrieben

Print with its procedures PrintOut und PrintPreview
Column with its procedures ScrollColumn und SplitColumn
Row with its procedures ScrollRow und SplitRow

Methoden

Die Hauptmethoden der Klasse Window sind

Activate - Bringt das Fenster an den Beginn der Z-Reihenfolge.

ActiveWindow.Activate

Close - Schließt das Objekt.

Dim booClose As Boolean
booClose = ActiveWindow.Close

Andere Methoden

ActivateNext - Aktiviert das angegebene Fenster und reiht es dann am Ende der Fenster-Z-Reihenfolge ein.

ActivatePrevious - Aktiviert das angegebene Fenster und anschließend das Fenster am Ende der Fenster-Z-Reihenfolge.

LargeScroll - Führt seitenweise einen Bildlauf durch den Fensterinhalt aus.

NewWindow - Erstellt ein neues Fenster oder eine Kopie des angegebenen Fensters.

PointsToScreenPixelsX - Wandelt eine horizontale Messung von Punkten (Dokument Koordinaten) in Bildschirmpixel (Bildschirmkoordinaten) um.

PointsToScreenPixelsY - Wandelt eine vertikale Messung von Punkten (Dokument Koordinaten) in Bildschirmpixel (Bildschirmkoordinaten) um.

RangeFromPoint - Gibt das Shape -oder Range -Objekt zurück, das am angegebenen paar von Bildschirmkoordinaten positioniert wird.

ScrollIntoView - Verschiebt den Fensterinhalt des Dokumentfensters, sodass der Inhalt eines angegebenen rechteckigen Bereichs entweder in der oberen linken oder der unteren rechten Ecke des Dokumentfensters bzw. -fensterausschnitts angezeigt wird (dies hängt vom Wert des Arguments Start ab).

ScrollWorkbookTabs - Blättert durch die Register der Arbeitsmappe am unteren Rand des Fensters.

SmallScroll - Führt einen zeilen- oder spaltenweisen Bildlauf für Fensterinhalte aus.

Windows.Arrange - Ordnet die Fenster auf dem Bildschirm an.

Windows.BreakSideBySide - Beendet den Modus Seite-an-Seite, wenn zwei Fenster sich im Nebeneinandermodus befinden.

Windows.CompareSideBySideWith - Öffnet zwei Fenster im Modus Boolean.

Windows.ResetPositionsSideBySide - Setzt die Position von zwei Arbeitsblattfenstern, die nebeneinander verglichen werden, zurück.

Eigenschaften

ActiveCell Diese Eigenschaft gibt ein Range-Objekt zurück, das die aktive Zelle entweder im aktiven Fenster (das Fenster im Vordergrund) oder im angegebenen Fenster repräsentiert.

Dim rngActiveCell As Range
Set rngActiveCell = ActiveWindow.ActiveCell

ActiveChart Gibt ein Chart -Objekt zurück, das das aktive Diagramm (entweder ein eingebettetes Diagramm oder ein Diagrammblatt) darstellt.

Dim chrActiveChart As Chart
Set chrActiveChart = ActiveWindow.ActiveChart

ActivePane Gibt ein Pane -Objekt zurück, das den aktiven Bereich im Fenster darstellt.

Dim panActivePane As Pane
Set panActivePane = ActiveWindow.ActivePane

ActiveSheet Gibt ein Objekt zurück, das das aktuelle Blatt (das oberste Blatt) in der aktiven oder angegebenen Arbeitsmappe oder im angegebenen Fenster darstellt.

Dim wsActiveSheet As Worksheet
Set wsActiveSheet = ActiveWindow.ActiveSheet

ActiveSheetView Gibt ein Objekt zurück, das die Ansicht des aktiven Blatts im angegebenen Fenster darstellt.

Dim wsvwActiveSheetView As WorksheetView
Set wsvwActiveSheetView = ActiveWindow.ActiveSheetView

AutoFilterDateGrouping True, wenn der Autofilter für die Datumsgruppierung zurzeit im angegebenen Fester angezeigt wird.

ActiveWindow.AutoFilterDateGrouping = True

Caption Gibt einen Variant-Wert zurück, der den auf der Titelleiste des Dokumentfensters angezeigten Namen darstellt, oder legt diesen Wert fest.

ActiveWindow.Caption =  "Consolidated Balance Sheet"

DisplayFormulas True , wenn das Fenster Formeln angezeigt wird; andernfalls false. False , wenn das Fenster Werte anzeigt.

ActiveWindow.DisplayFormulas = True

DisplayGridlines True, wenn Gitternetzlinien angezeigt werden.

ActiveWindow.DisplayGridlines = True

DisplayHeadings True , wenn Zeilen-und Spaltenüberschriften angezeigt werden; andernfalls false. False , wenn keine Überschriften angezeigt werden.

ActiveWindow.DisplayHeadings = True

DisplayHorizontalScrollBar True, wenn die horizontale Bildlaufleiste angezeigt wird.

ActiveWindow.DisplayHorizontalScrollBar = True

DisplayOutline True, wenn Gliederungssymbole angezeigt werden.

ActiveWindow.DisplayOutline = True

DisplayRightToLeft True, wenn das angegebene Fenster nicht von links nach rechts, sondern von rechts nach links angezeigt wird.

ActiveWindow.DisplayRightToLeft = True

DisplayRuler True, wenn für das angegebene Fenster ein Lineal angezeigt wird.

ActiveWindow.DisplayRuler = True

DisplayVerticalScrollBar True, wenn die vertikale Bildlaufleiste angezeigt wird.

ActiveWindow.DisplayVerticalScrollBar = True

DisplayWhitespace True, wenn Leerzeichen angezeigt werden.

ActiveWindow.DisplayWhitespace = True

DisplayWorkbookTabs True, wenn die Arbeitsmappenregister angezeigt werden.

ActiveWindow.DisplayWorkbookTabs = True

DisplayZeros True, wenn Nullwerte angezeigt werden.

ActiveWindow.DisplayZeros = True

EnableResize True, wenn die Größe des Fensters verändert werden kann.

ActiveWindow.EnableResize = True

FreezePanes True, wenn geteilte Bereiche fixiert sind.

ActiveWindow.FreezePanes = True

GridlineColor Gibt die Farbe der Gitternetzlinien als einen RGB-Wert zurück oder legt sie fest.

ActiveWindow.GridlineColor = RGB(0,0,255)'blue

GridlineColorIndex Gibt die Farbe der Gitternetzlinien als Index in der aktuellen Farbpalette oder als XlColorIndex -Konstante zurück oder legt Sie fest.

ActiveWindow.GridlineColorIndex = xlColorIndexAutomatic

Height Gibt einen Double -Wert zurück, der die Höhe des Fensters in Punktdarstellt, oder legt diesen fest.

ActiveWindow.Height =

Hwnd Gibt einen Wert vom Typ Long zurück, der das Fensterhandle des angegebenen Fensters angibt.

Dim lngHwnd As Long
lngHwnd = ActiveWindow.Hwnd

Index Gibt einen Long-Wert zurück, der die Indexnummer des Objekts in der Auflistung ähnlicher Objekte darstellt.

Dim lngIndex As Long
lngIndex = ActiveWindow.Index

Left Gibt einen Double -Wert zurück, der den Abstand zwischen dem linken Rand des Clientbereichs und dem linken Rand des Fensters in Punktdarstellt, oder legt diesen fest.

ActiveWindow.Left =

OnWindow Gibt zurück oder legt den Namen der Prozedur, die ausgeführt wird, wenn Sie ein Fenster aktivieren.

ActiveWindow.OnWindow =

Panes Gibt eine Panes -Auflistung zurück, die alle Bereiche im angegebenen Fenster darstellt.

Dim pnsPanes As Panes
Set pnsPanes = ActiveWindow.Panes

Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveWindow.Parent

RangeSelection Gibt ein Range -Objekt zurück, das die ausgewählten Zellen im Arbeitsblatt im angegebenen Fenster darstellt, auch wenn ein Grafikobjekt im Arbeitsblatt aktiv oder ausgewählt ist.

Dim rngRangeSelection As Range
Set rngRangeSelection = ActiveWindow.RangeSelection

SelectedSheets Gibt eine Sheets -Auflistung zurück, die alle ausgewählten Blätter im angegebenen Fenster darstellt.

Dim shtsSelectedSheets As Sheets
Set shtsSelectedSheets = ActiveWindow.SelectedSheets

Selection Gibt das angegebene Fenster für ein Windows -Objekt zurück.

Dim wndsSelection As Windows
Set wndsSelection = ActiveWindow.Selection

SheetViews Gibt das SheetViews -Objekt für das angegebene Fenster zurück.

Dim svsSheetViews As SheetViews
Set svsSheetViews = ActiveWindow.SheetViews

Split True, wenn das Fenster geteilt ist.

ActiveWindow.Split = True

SplitHorizontal Gibt die Position der horizontalen Fensterteilung in Punktzurück oder legt Sie fest.

ActiveWindow.SplitHorizontal = 216

SplitVertical Gibt die Position der vertikalen Fensterteilung in Punktzurück oder legt Sie fest.

ActiveWindow.SplitVertical = 216

TabRatio Gibt das Verhältnis zwischen der Breite des Registerkartenbereichs der Arbeitsmappe und der Breite der horizontalen Bildlaufleiste des Fensters zurück oder legt es fest (als Zahl zwischen 0 (null) und 1, der Standardwert lautet 0,6).

ActiveWindow.TabRatio =

Top Gibt einen Double -Wert zurück, der den Abstand (in Punkt) vom oberen Rand des Fensters zum oberen Rand des nutzbaren Bereichs (unterhalb der Menüs, der oben angedockten Symbolleisten und der Bearbeitungsleiste) darstellt, oder legt diesen fest.

ActiveWindow.Top = 100

Type Gibt einen XlWindowType -Wert zurück, der den Fenstertyp darstellt, oder legt diesen fest.

Dim xwtType As XlWindowType
xwtType = ActiveWindow.Type

UsableHeight Gibt die maximale Höhe des Speicherplatzes zurück, den ein Fenster im Anwendungsfenster Bereich in Punkteinnehmen kann.

Dim dblUsableHeight As Double
dblUsableHeight = ActiveWindow.UsableHeight

UsableWidth Gibt die maximale Breite des Speicherplatzes zurück, den ein Fenster im Anwendungsfenster Bereich in Punkteinnehmen kann.

Dim dblUsableWidth As Double
dblUsableWidth = ActiveWindow.UsableWidth

View Gibt die im Fenster dargestellte Ansicht zurück oder legt sie fest.

ActiveWindow.View = xlNormalView

Visible Gibt einen Boolean-Wert zurück, der bestimmt, ob das Objekt sichtbar ist, oder legt diesen Wert fest.

ActiveWindow.Visible = True

VisibleRange Gibt ein Range -Objekt zurück, das den Bereich von Zellen darstellt, die im Fenster oder im Fensterausschnitt sichtbar sind.

Dim rngVisibleRange As Range
Set rngVisibleRange = ActiveWindow.VisibleRange

Width Gibt einen Double -Wert zurück, der die Breite des Fensters in Punktdarstellt, oder legt diesen fest.

ActiveWindow.Width =

WindowNumber Gibt die Fensternummer zurück.

Dim lngWindowNumber As Long
lngWindowNumber = ActiveWindow.WindowNumber

WindowState Gibt den Zustand des Fensters zurück oder legt diesen fest.

ActiveWindow.WindowState = xlMaximized

Zoom Gibt einen Variant-Wert zurück, der die Größe der Bildschirmanzeige für das Fenster als prozentualen Wert (100 entspricht der normalen Größe, 200 der doppelten Größe usw.) darstellt, oder legt diesen Wert fest.

ActiveWindow.Zoom =

Windows.Count Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.Count

Windows.Item Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Dim wndItem As Window
Set wndItem = ActiveWindow.Selection(Index:=1)

Windows.Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.Parent

Windows.SyncScrollingSideBySide True aktiviert den gleichzeitigen Bildlauf in Fenstern, wenn Dokumente nebeneinander verglichen werden.

ActiveWindow.Selection.SyncScrollingSideBySide = True