Window.GetWindowRect-Methode (Visio)
Ruft die Größe und Position des Clientbereichs eines Fensters ab.
Syntax
Ausdruck. GetWindowRect
( _pnLeft_
, _pnTop_
, _pnWidth_
, _pnHeight_
)
Ausdruck Eine Variable, die ein Window-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
pnLeft | Erforderlich | Long | Die Koordinate der linken Fensterseite. |
pnTop | Erforderlich | Long | Die Koordinate der oberen Fensterseite. |
pnWidth | Erforderlich | Long | Der Abstand in Pixeln zwischen der linken und rechten Fensterseite. |
pnHeight | Erforderlich | Long | Der Abstand in Pixeln zwischen der oberen und unteren Fensterseite. |
Rückgabewert
Nichts
Bemerkungen
Die GetWindowRect-Methode ruft die Größe und Position des Clientbereichs des Fensters in Bezug auf das Fenster ab, das die zugehörige Windows-Auflistung besitzt. Für die Windows-Auflistung eines Application-Objekts ist das Bezugsfenster das MDICLIENT-Fenster des Microsoft Visio-Hauptfensters. Für die Windows-Auflistung eines Window-Objekts ist das Bezugsfenster der Clientbereich des Zeichnungsfensters.
Beispiel
Im folgenden Beispiel wird gezeigt, wie Sie mit der GetWindowRect-Methode die Größe und Position eines Window-Objekts abrufen. Dabei wird das Fenster Verschieben und Zoom geöffnet und die Koordinaten, die Breite und die Höhe des Fensters werden im Direktfenster angezeigt.
Public Sub GetWindowRect_Example()
Dim vsoApplication As Visio.Application
Dim vsoPZWindow As Visio.Window
Dim pinLeft As Long, pinTop As Long, pinWidth As Long, pinHeight As Long
Set vsoApplication = Visio.Application
'Display the Pan & Zoom window
Set vsoPZWindow = vsoApplication.ActiveWindow.Windows.ItemFromID(visWinIDPanZoom)
vsoPZWindow.Visible = True
'Get the existing window size and position
vsoPZWindow.GetWindowRect pinLeft, pinTop, pinWidth, pinHeight
Debug.Print pinLeft, pinTop, pinWidth, pinHeight
'Change the window height and get the new values
vsoPZWindow.SetWindowRect pinLeft, pinTop, pinWidth, pinHeight + 50
vsoPZWindow.GetWindowRect pinLeft, pinTop, pinWidth, pinHeight
Debug.Print pinLeft, pinTop, pinWidth, pinHeight
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für