Partager via


Méthode Page.DrawRectangle (Visio)

Ajoute un rectangle à la collection Shapes d'une page, d'une forme de base ou d'un groupe.

Syntaxe

expression. DrawRectangle( _x1_ , _y1_ , _x2_ , _y2_ )

Expression Variable qui représente un objet Page .

Parameters

Nom Requis/Facultatif Type de données Description
x1 Obligatoire Double Coordonnée x d'un coin du cadre largeur/hauteur du rectangle.
y1 Obligatoire Double Coordonnée y d'un coin du cadre largeur/hauteur du rectangle.
x2 Obligatoire Double Coordonnée x de l'autre coin du cadre largeur/hauteur du rectangle.
y2 Obligatoire Double Coordonnée y de l'autre coin du cadre largeur/hauteur du rectangle.

Valeur renvoyée

Shape

Remarques

Utiliser la méthode DrawRectangle revient à utiliser l'outil Rectangle dans l'application. Les arguments sont en unités de dessin internes par rapport à l'espace coordonné de la page, de la forme de base ou du groupe sur lequel le rectangle est déposé.

Exemple

L'exemple suivant indique comment dessiner un rectangle sur la page active.

 
Public Sub DrawRectangle_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawRectangle(1, 4, 4, 1) 
 
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.