Discussion :

[jpg75014]

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.

[mapeh]

Bonsoir,

ainsi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Set deb = ActiveSheet.Shapes(nom_parent)
Set fin = ActiveSheet.Shapes(nom)
 
Set c = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 145.5, 102#, 240.75, 15.75)
    With c
        .ConnectorFormat.BeginConnect ConnectedShape:=deb, ConnectionSite:=1
        .ConnectorFormat.EndConnect ConnectedShape:=fin, ConnectionSite:=1
        .Line.BeginArrowheadStyle = msoArrowheadTriangle
        .Line.EndArrowheadStyle = msoArrowheadTriangle
        c.RerouteConnections
    End With