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.