[VBA Visio 2010] Récupérer des données de formes

Récupérer des données de formes [VBA Visio 2010] - VB/VBA/VBS - Programmation

Marsh Posté le 03-11-2012 à 03:28:20    

Salut, j'aurais aimer savoir comment récupérer les données de formes des différentes formes que l'ont a sur la page active en VBA ?
 
Je ne suis pas du tout un pro du VBA donc je vous pose surement une question très bête mais a laquelle je n'ai pas de réponse ! :)
 
Merci d'avance pour votre réponse, Cordialement.

Reply

Marsh Posté le 03-11-2012 à 03:28:20   

Reply

Marsh Posté le 05-11-2012 à 01:51:09    

Salut Je@nb, merci beaucoup pour ta réponse, j'ai regarder un peu tout cela et ça à l'air de fonctionner selon mes tests.
 
En revanche, une autre question se pose, dans l'idée, j'aimerais parcourir toutes les formes qu'il y a sur ma page active, récuperer les données de formes, formes après formes, regarder leur valeur jusqu'a ce que je trouve la bonne.
 
Je sais donc comment accéder aux données d'une formes, mais je ne sais pas parcourir la page active à la recherche de la bonne forme.
 
Je n'ais vraiment aucune idée de comment faire ça, j'ai tester un  
 
Msgbox (ActiveWindow.Shape.Name)
 
Qui me renvois "Lapage", je ne sais pas si Shape est un tableau que l'on peut parcourir ?
 
Msgbox (ActiveWindow.Shape(1,2,3...).Name)
 
Merci d'avance pour ta réponse !

Reply

Marsh Posté le 05-11-2012 à 14:41:05    

Essaie un truc comme ça :

Code :
  1. Option Explicit
  2. Public Sub Shapelist()
  3.    
  4.     Dim shpObjs  As Visio.Shapes
  5.     Dim shpObj   As Visio.Shape
  6.     Dim celObj   As Visio.Cell
  7.     Dim i        As Integer
  8.    
  9.    
  10.     Set shpObjs = ActivePage.Shapes
  11.    
  12.  
  13.     For i = 1 To shpObjs.Count
  14.         Set shpObj = shpObjs(i)
  15.       MsgBox(shpObj.Name)
  16.     Next
  17.    
  18.      'Clean up
  19.     Set celObj = Nothing
  20.     Set shpObj = Nothing
  21.     Set shpObjs = Nothing
  22. End Sub


Message édité par Je@nb le 05-11-2012 à 14:44:56
Reply

Marsh Posté le 15-11-2012 à 14:36:02    

merci beaucoup :)

Reply

Sujets relatifs:

Leave a Replay

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