[VB6 - VISIO] Comment, dans un document VISIO, ancrer un lien dynamique à une sh

[Résolu]
Signaler
Messages postés
8
Date d'inscription
jeudi 9 novembre 2000
Statut
Membre
Dernière intervention
7 mars 2006
-
Messages postés
8
Date d'inscription
jeudi 9 novembre 2000
Statut
Membre
Dernière intervention
7 mars 2006
-
Bonjour à tous,

Je souhaiterais modifier un document VISIO à partir de VB6 et ancrer une shape de type "lien dynamique" à une shape de départ de type "Evénement divisé" et une shape d'arrivée de type "Evénement divisé".

Lorsqu'on ancre manuellement un lien dynamique à des shapes, ce sont les propriétés oShape.Connects.Item(1).ToCell.Shape.ID et oShape.Connects.Item(2).ToCell.Shape.ID qui sont renseignées avec les ID des shapes de départ et d'arrivée. Par ailleurs la propriété oShape.Connects.Count est positionnée à 2.
Mais lorsqu'on crée un lien dynamique sans l'ancrer, les propriétés oShape.Connects.Item(1) et oShape.Connects.Item(2) n'existent même pas et la propriété oShape.Connects.Count est positionnée à 0.

Existe-t'il une solution via du code VB6 pour ancrer un lien dynamique à 2 shapes de départ et d'arrivée ?

Merci d'avance pour votre aide.

PS : Je connais les ID des 3 shapes puisque je les crée via VB6.

4 réponses

Messages postés
124
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
16 mai 2007

shpObj1 est ta 1ère shape "Evénement divisé", shpObj2 la deuxième... et connectObj ton connecteur. Je ne sais pas si ça va marcher....

Dim celObjBeginX As Visio.Cell
Dim celObjEndX As Visio.Cell

Set celObjBeginX = connectObj.Cells("DépartX")
celObjBeginX.GlueTo shpObj1.Cells("AlignBottom")
Set celObjEndX = connectObj.Cells("FinX")
celObjEndX.GlueTo shpObj2.Cells("AlignTop")

Bon courage!
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
124
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
16 mai 2007

Peut-être que la méthode GlueTo peut t'aider?
Messages postés
8
Date d'inscription
jeudi 9 novembre 2000
Statut
Membre
Dernière intervention
7 mars 2006

Je suis justement en train de me battre avec (et avec sa copine GlueToPos).
J'ai des soucis avec le modèle d'objets de visio : Document\page\shape\section\row\cell...
Je vais regarder ça à tête reposée demain et mettrai la réponse si je la trouve.

Merci Cissou06 pour ton aide
Messages postés
8
Date d'inscription
jeudi 9 novembre 2000
Statut
Membre
Dernière intervention
7 mars 2006

Un seul mot : splendide !