Discussion :

[Gautheron]

Bonjour,

NAturellement, jen'arrive pas à trouver une solution simple.
Je manipule à travers des macros de nombreuses figures comme des rectangles, des ronds, etc sous excell.

Les macros me servent à les montrer ou les cacher, et les relayer.
Pour créer leur relation, j'utilise les connecteurs et ca va très bien.

Cependant, je suis amené à devoir retoucher parfois lourdement les schémas ainsi créé, et j'aurai besoin d'identifier les figures qui sont reliés par les connecteurs.
Quelqu'un connait il la ligne de programmation magique qui me permette de d'extraire le nom de la figure à chaque bout du connecteur ?

MErci.

[Pierre Fauconnier]

Bonjour

L'espion te permet de parcourir les propriétés d'un objet ainsi que celles des objets fils...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
    Dim Monconnecteur As Shape
    Dim FigureDebut As Shape
    Dim FigureFin As Shape
 
    Set Monconnecteur = Feuil1.Shapes("connecteur1")
    With Monconnecteur.ConnectorFormat
        If .BeginConnected = msoTrue Then Set FigureDebut = .BeginConnectedShape
        If .EndConnected = msoTrue Then Set FigureFin = .EndConnectedShape
    End With
End Sub

Les tests de connexion permettent d'éviter des erreurs au cas où un connecteur ne serait pas connecté d'un côté...ou des deux.


Ok?

[Gautheron]

Merci beaucoup de ta réponse.
Sur le principe, ca me parait hyper clair.

Cependant, j'ai fait le test suivant sur une feuille contenant deux rectangles et le connecteur entre eux, et ca plante au moment de parler de format (cf annotation. Peux tu encore m'aider, stp ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub correct()
 
    Dim Monconnecteur As Shape
    Dim FigureDebut As Shape
    Dim FigureFin As Shape
 
'me permet de balayer l'ensemble des figures
    For Each img In ActiveSheet.Shapes
    ActiveSheet.Select
    img.Select
    Test = img.AutoShapeType
    Test = img.Type
 
If img.AutoShapeType = -2 Then '-2 correspond à priori aux connecteurs
    Test = img.Name
    Set Monconnecteur = Feuil1.Shapes(Test)  ' c'est redondant mais je réuitilise directement ta proposition
 
    With Monconnecteur.ConnectorFormat 'ICI, j'ai un plantage avec le message suivant : l'accès a ce membre n'est possible que pour un connecteur
 
 If .BeginConnected = msoTrue Then Set FigureDebut = .BeginConnectedShape
        If .EndConnected = msoTrue Then Set FigureFin = .EndConnectedShape
    End With
End If
 
Next
End Sub

[Gautheron]

J'ai trouvé le problème.
Merci beaucoup !

[edelweisseric]

Bonsoir à tous
Bonsoir Gautheron
Bonsoir Pierre Fauconnier

Le sujet m'intéresse. Peux tu Gautheron, STP, nous dire quel était le problème et comment tu l'as réglé.

Merci

Eric