[VB6 - VISIO] Comment, dans un document VISIO, ancrer un lien dynamique à une shRésolu

Question

Bonjour &#224; tous,

Je souhaiterais modifier un document VISIO &#224; partir de VB6 et ancrer une shape de type "lien dynamique" &#224; une shape de d&#233;part de type "Ev&#233;nement divis&#233;" et une shape d'arriv&#233;e de type "Ev&#233;nement divis&#233;".

Lorsqu'on ancre manuellement un lien dynamique &#224; des shapes, ce sont les propri&#233;t&#233;s oShape.Connects.Item(1).ToCell.Shape.ID et oShape.Connects.Item(2).ToCell.Shape.ID qui sont renseign&#233;es avec les ID des shapes de d&#233;part et d'arriv&#233;e. Par ailleurs la propri&#233;t&#233; oShape.Connects.Count est positionn&#233;e &#224; 2.
Mais lorsqu'on cr&#233;e un lien dynamique sans l'ancrer, les propri&#233;t&#233;s oShape.Connects.Item(1) et oShape.Connects.Item(2) n'existent m&#234;me pas et la propri&#233;t&#233; oShape.Connects.Count est positionn&#233;e &#224; 0.

Existe-t'il une solution via du code VB6 pour ancrer un lien dynamique &#224; 2 shapes de d&#233;part et d'arriv&#233;e ?

Merci d'avance pour votre aide.

PS : Je connais les ID des 3 shapes puisque je les cr&#233;e via VB6.

cs_cissou06 · Accepted Answer

shpObj1 est ta 1&#232;re shape "Ev&#233;nement divis&#233;", shpObj2 la deuxi&#232;me... et connectObj ton connecteur. Je ne sais pas si &#231;a va marcher....

Dim celObjBeginX As Visio.Cell
Dim celObjEndX As Visio.Cell

Set celObjBeginX = connectObj.Cells("D&#233;partX")
celObjBeginX.GlueTo shpObj1.Cells("AlignBottom")
Set celObjEndX = connectObj.Cells("FinX")
celObjEndX.GlueTo shpObj2.Cells("AlignTop")

Bon courage!

cs_cissou06 · Answer

Peut-&#234;tre que la m&#233;thode GlueTo peut t'aider?

cs_ManuD · Answer

Je suis justement en train de me battre avec (et avec sa copine GlueToPos).
J'ai des soucis avec le mod&#232;le d'objets de visio : Document\page\shape\section\row\cell...
Je vais regarder &#231;a &#224; t&#234;te repos&#233;e demain et mettrai la r&#233;ponse si je la trouve.

Merci Cissou06 pour ton aide

cs_ManuD · Answer

Un seul mot : splendide !

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

4 réponses

Discussions similaires