Propriété ShapeRange.ConnectionSiteCount (PowerPoint)

  • Article

Renvoie le nombre de sites de connexion sur la forme spécifiée. En lecture seule.

Syntaxe

expression. ConnectionSiteCount

Expression Variable qui représente un objet ShapeRange .

Valeur renvoyée

Entier long

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 = ActivePresentation.Slides(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

Voir aussi

ShapeRange, objet

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.