Méthode Window.GetWindowRect (Visio)

Article
01/17/2024

Récupère la taille et la position de la zone client d'une fenêtre.

Syntaxe

expression. GetWindowRect( _pnLeft_ , _pnTop_ , _pnWidth_ , _pnHeight_ )

Expression Variable qui représente un objet Window .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
pnLeft	Obligatoire	Long	Coordonnée du côté gauche de la fenêtre.
pnTop	Obligatoire	Long	Coordonnée du bord supérieur de la fenêtre.
pnWidth	Obligatoire	Long	Distance en pixels entre le côté gauche et le côté droit de la fenêtre.
pnHeight	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 GetWindowRect récupère 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 « par rapport à » est la fenêtre MDICLIENT de la fenêtre principale de Microsoft Visio. Pour la collection Windows d’un objet Window, la fenêtre « par rapport à » est la zone client de la fenêtre de dessin.

Exemple

L'exemple suivant illustre l'utilisation de la méthode GetWindowRect pour extraire 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.

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

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.

Partager via