Propriété Shape.ConnectionSiteCount (Publisher)
Renvoie un type Long indiquant le nombre de points de connexion sur l'objet Shape en cours. En lecture seule.
Syntaxe
expression. ConnectionSiteCount
Expression Variable qui représente un objet Shape .
Remarques
Le nombre de points de connexion varie selon la géométrie de la forme. Les objets rectangulaires, y compris les tables et les contrôles web, auront probablement quatre sites de connexion, un centré sur chaque bord de la forme.
Exemple
Cet exemple montre comment ajouter deux rectangles à la composition active et les joindre à 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. Il compte ensuite le nombre de connexions sur le premier 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
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour