Visio - Récupérer les propriétés personalisées ?

Visio - Récupérer les propriétés personalisées ? - VB/VBA/VBS - Programmation

Marsh Posté le 21-08-2007 à 17:49:01    

Bonjour,
 
Je suis sous Visio 2003 et je cherche à récupérer les propriétés personalisées d'une forme de mon document.
 
La forme est récupérée via  
 

Code :
  1. Set docShapes = Application.ActiveWindow.Page.Shapes
  2. docShapes.ItemFromID(idDeMonElement)


 
En naviguant avec l'espion de VB Editor, je n'arrive pas à trouver comment accéder aux propriétés personalisées de cette forme.
 
Une idée d'où trouver ces propriétés dans le code ?


---------------
Ils ne savaient pas que c'était impossible, alors ils l'ont fait. ©Mark Twain
Reply

Marsh Posté le 21-08-2007 à 17:49:01   

Reply

Marsh Posté le 22-08-2007 à 10:06:22    

up, je galère vraiment à trouver, ça m'inquiète :/


---------------
Ils ne savaient pas que c'était impossible, alors ils l'ont fait. ©Mark Twain
Reply

Marsh Posté le 22-08-2007 à 15:58:30    

magicien96 a écrit :

up, je galère vraiment à trouver, ça m'inquiète :/


 
Trouvé :
 

Code :
  1. Set docShapes = Application.ActiveWindow.Page.Shapes
  2. For Each item In docShapes
  3.       MsgBox item.Cells("prop.cost" ).Formula       
  4. Next


 
Par contre, là je suis obligé de lui précisé le nom de la propriété... J'aimerais le faire génériquement en parcourant une liste de cells disponibles. Quelqun saurait-il récupéré une liste de cellule ? (item.cells ne fonctionnent pas...)


---------------
Ils ne savaient pas que c'était impossible, alors ils l'ont fait. ©Mark Twain
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed