Bonjour

J'arrive tant bien que mal à créer un connecteur entre deux formes grace au code suivant :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Set deb = myDocument.Shapes(nom_parent)
Set fin = myDocument.Shapes(nom)
 
Set c = myDocument.Shapes.AddConnector(msoConnectorStraight, 0, 0, 100, 100)
    With c.ConnectorFormat
        .BeginConnect ConnectedShape:=deb, ConnectionSite:=1
        .EndConnect ConnectedShape:=fin, ConnectionSite:=1
 
        c.RerouteConnections
    End With

Par contre, je n'arrive pas à ajouter une flèche à la fin de ce connecteur. Quelle propriété puis-je utiliser ?
Merci beaucoup pour votre aide.