Méthode Window.SetWindowRect (Visio)
Définit la taille et la position de la zone client d'une fenêtre.
Syntaxe
expression. SetWindowRect
( _nLeft_
, _nTop_
, _nWidth_
, _nHeight_
)
Expression Variable qui représente un objet Window .
Paramètres
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
nLeft | Obligatoire | Long | Coordonnée du côté gauche de la fenêtre. |
Ntop | Obligatoire | Long | Coordonnée du bord supérieur de la fenêtre. |
nWidth | Obligatoire | Long | Distance en pixels entre le côté gauche et le côté droit de la fenêtre. |
nHeight | Obligatoire | Long | Distance en pixels entre les bords supérieur et inférieur de la fenêtre. |
Valeur renvoyée
Aucune
Remarques
La méthode SetWindowRect définit la taille et la position de la zone client de la fenêtre par rapport à la fenêtre qui détient la collection Windows à laquelle elle appartient. Pour la collection Windows d'un objet Application, la fenêtre « de comparaison » est la fenêtre MDICLIENT de la fenêtre principale de Visio. Pour la collection Windows d’un objet Window, la fenêtre « par rapport à » est la zone client de la fenêtre de dessin.
SetWindowRect n'a aucun effet lorsque la fenêtre est fixe.
Exemple
L’exemple suivant décrit l’utilisation de la méthode SetWindowRect pour définir la taille et la position d’un objet Window. Il ouvre la fenêtre Panoramique et zoom et imprime les coordonnées, la largeur et la hauteur de la fenêtre dans la fenêtre d'exécution. Il utilise ensuite SetWindowRect pour modifier la hauteur de la fenêtre et imprime les nouvelles valeurs.
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
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.