Propriété ConnectorFormat.BeginConnectedShape (PowerPoint)

Article
04/07/2023

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

Syntaxe

expression. BeginConnectedShape

Expression Variable qui représente un objet ConnectorFormat .

Valeur renvoyée

Shape

Remarques

Si le début du connecteur spécifié n’est pas relié à une forme, cette propriété génère une erreur.

Exemple

Cet exemple suppose que la première diapositive 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. Le début du nouveau connecteur sera rattaché au même point d'attache que le début du connecteur appelé « Conn1To2 » et la fin du nouveau connecteur sera rattachée au point d'attache 1 sur le nouveau rectangle.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes
    Set r3 = .AddShape(msoShapeRectangle, 450, 190, 200, 100)

    .AddConnector(msoConnectorCurve, 0, 0, 10, 10) _
        .Name = "Conn1To3"

    With .Item("Conn1To2").ConnectorFormat
        beginConnSite1 = .BeginConnectionSite
        Set beginConnShape1 = .BeginConnectedShape
    End With

    With .Item("Conn1To3").ConnectorFormat
        .BeginConnect beginConnShape1, beginConnSite1
        .EndConnect r3, 1
    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