VBA viso

Question

Bonjour à tous. 

j'ai besoin de conseil pour le développement d'une macro sous Visio.

c'est un projet relativement simple et j'ai tout ce qu'il faut je pense pour y arriver sauf des connaissances en VBA visio.

j'ai visual studio 2010 + visio 2010 mais je n'ai jamais utilisé VS2010 -_-'.

mon projet consiste à partir d'un schéma déjà réalisé, changer la couleur des liens à partir d'infos entrées par l'utilisateur.

pour résumé : 

j'ai des sites pour simplifier je vais les nommer par des lettre (A, B, C, etc etc) et entre chaque site des liens.

par exemple entre le site A et B j'ai 3 liens respectivement AR1 AR2 et AR3

et entre le site B et C j'ai 4 liens AR1, AR3, AR4 et AR5.

l'utilisateur devra spécifier 3 informations. les sites d&#8217;extrémités et le lien.

par exemple, le site A et le site B avec le lien AR1.

la macro devra par la suite mettre le lien AR1 entre A et B en rouge et tous les autre liens AR1 (entre des sites d&#8217;extrémité != de A et B) en jaune.

le souci est que le VBA visio est très différent de VBA excel, je suis donc perdu.

j'ai tenté de faire d&#8217;enregistrer une macro et voici ce que j'ai obtenu.

 'Enable diagram services
    Dim DiagramServices As Integer
    DiagramServices = ActiveDocument.DiagramServicesEnabled
    ActiveDocument.DiagramServicesEnabled = visServiceVersion140

    Dim UndoScopeID1 As Long
    UndoScopeID1 = Application.BeginUndoScope("Couleur de trait")
    Application.ActiveWindow.Page.Shapes.ItemFromID(5).CellsSRC(visSectionObject, visRowLine, visLineColor).FormulaU = "THEMEGUARD(RGB(255,0,0))"
    Application.EndUndoScope UndoScopeID1, True

    Dim UndoScopeID2 As Long
    UndoScopeID2 = Application.BeginUndoScope("Couleur de trait")
    Application.ActiveWindow.Page.Shapes.ItemFromID(3).CellsSRC(visSectionObject, visRowLine, visLineColor).FormulaU = "THEMEGUARD(RGB(255,255,0))"
    Application.EndUndoScope UndoScopeID2, True

    'Restore diagram services
    ActiveDocument.DiagramServicesEnabled = DiagramServices


cela fait un peu long pour changer la couleur de deux liens ...

a priori seuls deux lignes sont utiles 


Application.ActiveWindow.Page.Shapes.ItemFromID(3).CellsSRC(visSectionObject, visRowLine, visLineColor).FormulaU = "THEMEGUARD(RGB(255,255,0))"

Application.ActiveWindow.Page.Shapes.ItemFromID(5).CellsSRC(visSectionObject, visRowLine, visLineColor).FormulaU = "THEMEGUARD(RGB(255,0,0))"




pourriez vous m'aiguiller un peu ?

d'avance merci

cs_shinji7800 · Answer

J'ai obtenu le fonctionnement que je voulais, cependant je n'arrive toujours pas à intégrer de commentaires sur les liaisons. 

est ce possible ?

si cela intéresse quelqu'un je peux poster l'intégralité de mon code sur demande.

VBA viso

1 réponse

Votre réponse

Discussions similaires