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

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.

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

Marsh Posté le 03-11-2012 à 16:26:59

http://jaqoup.wordpress.com/2009/0 [...] using-vba/
http://stackoverflow.com/questions [...] n-with-vba

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 !

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

Essaie un truc comme ça :

Code :

Option Explicit
Public Sub Shapelist()
Dim shpObjs As Visio.Shapes
Dim shpObj As Visio.Shape
Dim celObj As Visio.Cell
Dim i As Integer
Set shpObjs = ActivePage.Shapes
For i = 1 To shpObjs.Count
Set shpObj = shpObjs(i)
MsgBox(shpObj.Name)
Next
'Clean up
Set celObj = Nothing
Set shpObj = Nothing
Set shpObjs = Nothing
End Sub

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

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

merci beaucoup

Sujets relatifs:

Leave a Replay

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

Name *

Email *

URL

Message *