Partager via


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.