Méthode ConnectorFormat.BeginConnect (PowerPoint)
Détache le début du connecteur spécifié de la forme à laquelle il est attaché.
Syntaxe
expression. BeginConnect
( _ConnectedShape_
, _ConnectionSite_
)
Expression Variable qui représente un objet ConnectorFormat .
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
ConnectedShape | Requis | Shape | Forme à laquelle le début du connecteur doit être attaché. L'objet Shape spécifié doit être dans la même collection Shapes que le connecteur. |
Connectionsite | Obligatoire | Long | Point de connexion sur la forme spécifiée par ConnectedShape. Doit être un entier compris entre 1 et le nombre entier renvoyé par la propriété ConnectionSiteCount de la forme spécifiée. Si vous souhaitez que le connecteur trouve automatiquement le chemin le plus court entre les deux formes qu’il connecte, spécifiez un entier valide pour cet argument, puis utilisez la méthode RerouteConnections une fois que le connecteur est attaché aux formes aux deux extrémités. |
Remarques
S'il existe déjà une connexion entre le début du connecteur et une autre forme, cette connexion est cassée. Si le début du connecteur n'est pas déjà positionné sur le point de connexion indiqué, cette méthode déplace le début du connecteur vers le point de connexion et ajuste la taille et la position du connecteur. Utilisez la méthode EndConnect pour joindre l'extrémité du connecteur à une forme.
Lorsque vous attachez un connecteur à un objet, la taille et la position du connecteur sont automatiquement ajustées, le cas échéant.
Exemple
Cet exemple ajoute deux rectangles à la première diapositive de la présentation active et les relie à un connecteur en arc. Notez que si vous utilisez la méthode RerouteConnections, les valeurs que vous avez affectées aux arguments SiteConnexion des méthodes BeginConnect et EndConnect ne sont pas prises en compte.
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)
With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
.ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
.Parent.RerouteConnections
End With
Voir aussi
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.