Discussion :

[ted the Ors]

Bonjour,

Est-il possible d'ajouter, sur le dessin, à côte d'une forme, les données de formes liées (ou au mieux une selection de certaines d'entre elles) ?

D'avance merci.

[ChriSoft]

Ted,

Tu peux dropper une shape text ou plusieurs qui contiennent les données de la dite shape.

[ted the Ors]

Merci pour la réponse.

Finalement, je suis passé par une macro VBA que j'indique ici au cas où ça en intéresserait quelques uns.
Elle parcourt les différentes formes du dessin et génère la "légende" (i.e le texte de la forme) à partir des données de formes.

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
For Each shpObj In Visio.ActivePage.Shapes
 
    Var_NOM = shpObj.CellsU("Prop.Nom").Formula
    Var_IP = shpObj.CellsU("Prop._VisDM_IP").Formula
    Var_NUM_SERIE = shpObj.CellsU("Prop._VisDM_NUM_SERIE").Formula
    Var_NOM_BAIE = shpObj.CellsU("Prop._VisDM_NOM_BAIE").Formula
    Var_EMPLACEMENT_BAIE = shpObj.CellsU("Prop._VisDM_EMPLACEMENT_DANS_LA_BAIE").Formula
    Var_NUM_SWITCH = shpObj.CellsU("Prop._VisDM_Numéro_de_switch").Formula
 
    SHAPE_NAME = ""
    SHAPE_NAME = SHAPE_NAME & Var_NOM & Chr(13)
    SHAPE_NAME = SHAPE_NAME & "IP:" & Var_IP & Chr(13)
    SHAPE_NAME = SHAPE_NAME & "(" & Var_NUM_SERIE & ")" & Chr(13)
    SHAPE_NAME = SHAPE_NAME & Var_NOM_BAIE & " ["
    SHAPE_NAME = SHAPE_NAME & Var_EMPLACEMENT_BAIE
    SHAPE_NAME = SHAPE_NAME & Var_NUM_SWITCH
 
    shpObj.Text = SHAPE_NAME
 
Next shpObj