Window.SetWindowRect-Methode (Visio)

Legt die Größe und Position des Clientbereichs eines Fensters fest.

Syntax

Ausdruck. SetWindowRect( _nLeft_ , _nTop_ , _nWidth_ , _nHeight_ )

Ausdruck Eine Variable, die ein Window-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
nLeft	Erforderlich	Long	Die Koordinate der linken Fensterseite.
Ntop	Erforderlich	Long	Die Koordinate der oberen Fensterseite.
nWidth	Erforderlich	Long	Der Abstand in Pixeln zwischen der linken und rechten Fensterseite.
nHeight	Erforderlich	Long	Der Abstand in Pixeln zwischen der oberen und unteren Fensterseite.

Rückgabewert

Nichts

Bemerkungen

Die SetWindowRect-Methode legt die Größe und Position des Clientbereichs des Fensters in Bezug auf das Fenster fest, das die zugehörige Windows-Auflistung besitzt. Für die Windows-Auflistung eines Application-Objekts ist das Bezugsfenster das MDICLIENT-Fenster des Visio-Hauptfensters. Für die Windows-Auflistung eines Window-Objekts ist das Bezugsfenster der Clientbereich des Zeichnungsfensters.

SetWindowRect hat keine Auswirkungen, wenn das Fenster verankert ist.

Beispiel

Im folgenden Beispiel wird gezeigt, wie Sie mit der SetWindowRect-Methode die Größe und Position eines Window-Objekts festlegen. Dabei wird das Fenster Verschieben und Zoom geöffnet und die Koordinaten, die Breite und die Höhe des Fensters werden im Direktfenster angezeigt. Anschließend wird setWindowRect verwendet, um die Höhe des Fensters zu ändern, und die neuen Werte werden ausgegeben.

Public Sub SetWindowRect_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.