Discussion :

[arnaud.123]

Bonjour,

Je cherche à savoir par VBA quels sont les connecteurs associés à une shape connue.
Dans mon exemple, je souhaite connaitre les connecteurs associés à "rectangle 2" soit "connecteur 4" de façon qu'en cas de modification de la forme "rectangle 2", je puisse recréer le lien avec "connecteur 4"
Je voudrais éviter de passer en revue tous les "connecteurs" de la feuille pour trouver lesquels sont connectés à "rectangle 2" --> ce serait moins ptimum.


En tous les cas, cela me permettra de corriger un bug décrit dans le post en PS.
Merci pour votre aide

Arnaud


PS : Code de connexion

Code :

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

1
2
    ActiveSheet.Shapes.Range(Array("Elbow Connector 4")).Select
    Selection.ShapeRange.ConnectorFormat.EndConnect ActiveSheet.Shapes("Rectangle 2"), 2

PS : POST evoquant le problème
http://www.developpez.net/forums/d13...e/#post7116971

[JackIsJack]

A par boucler sur l'ensemble des Shapes de la feuille, je n'ai pas trouvé.

Pour faciliter cette recherche, tu pourrais trouver une convention de nommage des connecteurs (si tu as la possibilité de les nommer).

Code :

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

1
2
3
Shapes(1).Name = "Forme1"
Shapes(2).Name = "Forme2"
Shapes(3).Name = "1-2"   ' Le connecteur entre la forme 1 et 2

Ensuite, dans ta boucle, tu recherche les noms de Shape qui contiennent le numéro de ta forme.

Enfin quelque chose dans le genre

[arnaud.123]

Merci sympasteve pour ta réponse.
Effectivement, ce dont tu parles, c'est ce que j'évoquais dans mon premier post.
... mais bon je m'y suis résigné.

Voici le code dans l'excel joint.
En cliquant sur les formes, une macro se lance :
- elle change la forme de l'objet cliquée
- elle reconnecte les connecteurs

Par contre s'il y a plus simple en code, je suis preneur.

Arnaud

[verredewhisky]

J'ai pas compris ce que tu cherches à faire mais si tu cherches à déplacer où allonger le "connecteur 4" en fonction de "rectangle 2" tu peux contourner le problème en utilisant le système des coordonnées.

[arnaud.123]

Salut verredewhisky,

Je te propose de relire ma problématique dans le 1er POST.
J'y évoque un bug d'office 2010 concernant la perte d'un connecteur lorsque tu modifie la forme d'une shape à laquelle il est connecté.
N'hésite pas à revenir vers moi si tu veux plus de précisions