Propriété ConnectorFormat.EndConnectedShape (PowerPoint)

Article
04/07/2023

Renvoie un objet Shape qui représente la forme à laquelle la fin du connecteur spécifié est attachée. En lecture seule.

Syntaxe

expression. EndConnectedShape

Expression Variable qui représente un objet ConnectorFormat .

Valeur renvoyée

Shape

Remarques

Si la fin du connecteur spécifié n’est pas attachée à une forme, cette propriété produit une erreur.

Exemple

Cet exemple suppose que la diapositive de poing de la présentation active contient déjà deux formes attachées par un connecteur nommé « Conn1To2 ». Le code ajoute un rectangle et un connecteur à la première diapositive. La fin du nouveau connecteur sera rattachée au même point d'attache que la fin du connecteur appelé « Conn1To2 » et le début du nouveau connecteur sera rattaché au point d'attache 1 sur le nouveau rectangle.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes
    Set r3 = .AddShape(msoShapeRectangle, 100, 420, 200, 100)
    .AddConnector(msoConnectorCurve, 0, 0, 10, 10) _
        .Name = "Conn1To3"

    With .Item("Conn1To2").ConnectorFormat
        endConnSite1 = .EndConnectionSite
        Set endConnShape1 = .EndConnectedShape
    End With

    With .Item("Conn1To3").ConnectorFormat
        .BeginConnect r3, 1
        .EndConnect endConnShape1, endConnSite1
    End With

End With

Voir aussi

Objet ConnectorFormat

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