Discussion :

[Guillaume_q]

Hello à tous,

J'aurai besoin d'un petit coup de main à propos des SmartArt.
Je cherche à relier deux noeuds entre eux avec un connecteur.



Voilà la philosophie du truc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Set OShp = ThisWorkbook.Sheets("Feuil1").Shapes.AddSmartArt(Application.SmartArtLayouts("urn:microsoft.com/office/officeart/2005/8/layout/radial5"))
 
Set s = ThisWorkbook.Sheets("Feuil1").Shapes
Set c = s.AddConnector(msoConnectorCurve, 0, 0, 0, 0)
 
With c.ConnectorFormat
 .BeginConnect OShp.SmartArt.AllNodes(1), 1
 .EndConnect OShp.SmartArt.AllNodes(2), 1
 c.RerouteConnections
 .BeginDisconnect
 .EndDisconnect
End With
End Sub

Auriez-vous une petite idée de comment procéder ?

Thanks pour vos retours !