Note
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renvoie le nombre de sites de connexion sur la forme spécifiée. Long (en lecture seule).
Syntaxe
expression. ConnectionSiteCount
expression Expression qui renvoie un objet Shape .
Exemple
Cet exemple montre comment ajouter deux rectangles à myDocument et les joindre avec deux connecteurs. Les débuts des deux connecteurs s'attachent au point d'attache un du premier rectangle ; les fins des connecteurs s'attachent aux premiers et derniers sites de connexion du second rectangle.
Set myDocument = Worksheets(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, _
100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, _
300, 300, 200, 100)
lastsite = secondRect.ConnectionSiteCount
With s.AddConnector(msoConnectorCurve, _
0, 0, 100, 100).ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, _
ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, _
ConnectionSite:=1
End With
With s.AddConnector(msoConnectorCurve, _
0, 0, 100, 100).ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, _
ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, _
ConnectionSite:=lastsite
End With
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.