Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Shape.ConnectionSiteCount, propriété (éditeur)Shape.ConnectionSiteCount Property (Publisher)

office 365 dev account|Dernière mise à jour: 14/03/2018
|
3 Collaborateurs

Renvoie un Long indiquant le nombre de sites de connexion sur l’objet Shape en cours. En lecture seule.Returns a Long indicating the count of connection sites on the current Shape object. Read-only.

SyntaxeSyntax

expression. ConnectionSiteCountexpression. ConnectionSiteCount

_expression_A variable qui représente un objet Shape ._expression_A variable that represents a Shape object.

RemarquesRemarks

Le nombre de points de connexion varie selon la géométrie de la forme. Les objets rectangulaires, y compris les tableaux et les contrôles Web, possèdent généralement quatre points de connexion, un au milieu de chaque côté de la forme.The number of connection sites varies depending on the shape geometry. Rectangular objects including tables and Web controls will most likely have four connection sites, one centered on each edge of the shape.

ExempleExample

Cet exemple ajoute deux rectangles à la composition active et les relie au moyen de deux connecteurs. Le début de chaque connecteur est relié au point de connexion un du premier rectangle. La fin de ces connecteurs est reliée au premier et au dernier points de connexion du deuxième rectangle. Ensuite, le nombre de connexions est comptabilisé sur le premier rectangle.This example adds two rectangles to the active publication and joins them with two connectors. The beginnings of both connectors attach to connection site one on the first rectangle; the ends of the connectors attach to the first and last connection sites of the second rectangle. Then it counts the number of connections on the first rectangle.

Sub Connections() 

 Dim shpNew As Shapes 
 Dim shpFirstRect As Shape 
 Dim shpSecondRect As Shape 
 Dim intLastSite As Integer 
 Dim intCount As Integer 

 Set shpNew = Application.ActiveDocument _ 
 .MasterPages(Item:=1).Shapes 
 Set shpFirstRect = shpNew.AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
 Set shpSecondRect = shpNew.AddShape(msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 
 varLastSite = shpSecondRect.ConnectionSiteCount 

 ' Add the first connector from rectangle 1, 
 ' site 1 to rectangle 2, site 1. 
 With shpNew.AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .ConnectorFormat 
 .BeginConnect ConnectedShape:=shpFirstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=shpSecondRect, ConnectionSite:=1 
 End With 

 ' Add the second connector from rectangle 1, 
 ' site 1 to rectangle 2, site 2. 
 With shpNew.AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .ConnectorFormat 
 .BeginConnect ConnectedShape:=shpFirstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=shpSecondRect, _ 
 ConnectionSite:=intLastSite 
 End With 

 intCount = shpFirstRect.ConnectionSiteCount 

End Sub
© 2018 Microsoft