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.