Cell.GlueToPos, méthode (Visio)

Article
04/07/2023

Colle une forme à une autre à partir d’une cellule de la première forme à une position x, y dans la deuxième forme.

Syntaxe

expression. GlueToPos (SheetObject, xPercent, yPercent)

Expression Variable qui représente un objet Cell .

Parameters

Nom	Requis/Facultatif	Type de données	Description
SheetObject	Requis	[IVSHAPE]	Expression qui renvoie l'objet Shape vers lequel doit être effectué un collage.
xPercent	Requis	Double	La coordonnée x de la position vers laquelle un collage doit être effectué.
yPercent	Requis	Double	La coordonnée y de la position vers laquelle un collage doit être effectué.

Valeur renvoyée

Aucune

Remarques

La méthode GlueToPos crée un nouveau point de connexion à l'emplacement déterminé par xPourcent et yPourcent qui représentent des fractions décimales, respectivement, de la largeur et de la hauteur plutôt que des coordonnées. L'exemple suivant permet de créer un point de connexion au centre de ObjetFeuille et de coller la partie de la forme représentée par celluleObjet à cet endroit :

cellObject. GlueToPosSheetObject, 0.5, 0.5

Le collage de la cellule X d'une ligne de section Controls ou d'une cellule BeginX ou EndX colle automatiquement la cellule Y de la ligne de section Controls ou de la cellule BeginY ou EndY, respectivement. (L'inverse est également vrai.)

Exemple

L'exemple suivant indique comment utiliser la méthode GlueToPos pour coller les formes ensemble.

 
Public Sub GlueToPos_Example() 
 
 Dim vso1DShape As Visio.Shape 
 Dim vso2DShape1 As Visio.Shape 
 Dim vso2DShape2 As Visio.Shape 
 Dim vsoCellGlueFromBegin As Visio.Cell 
 Dim vsoCellGlueFromEnd As Visio.Cell 
 
 'Draw a line. 
 Set vso1DShape = ActivePage.DrawLine(3, 5, 5, 3) 
 
 'Draw the lower rectangle. 
 Set vso2DShape1 = ActivePage.DrawRectangle(1, 1, 4, 2) 
 
 'Draw the upper rectangle. 
 Set vso2DShape2 = ActivePage.DrawRectangle(5, 5, 8, 6) 
 
 'Get the Cell objects needed to make the connections. 
 Set vsoCellGlueFromBegin = vso1DShape.Cells("BeginX") 
 Set vsoCellGlueFromEnd = vso1DShape.Cells("EndX") 
 
 'Use the GlueToPos method to glue the begin point of the 1D shape 
 'to the top center of the lower 2D shape. 
 vsoCellGlueFromBegin.GlueToPos vso2DShape1, 0.5, 1 
 
 'Use the GlueToPos method to glue the endpoint of the 1D shape 
 'to the bottom center of the upper 2D shape. 
 vsoCellGlueFromEnd.GlueToPos vso2DShape2, 0.5, 0 
 
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