[VBA Visio]Récuper l'id d'une forme

ooEmixamoo Messages postés 4 Date d'inscription mercredi 23 septembre 2009 Statut Membre Dernière intervention 24 septembre 2009 - 24 sept. 2009 à 17:02
cs_unique07 Messages postés 8 Date d'inscription vendredi 2 mai 2008 Statut Membre Dernière intervention 29 juillet 2010 - 21 juil. 2010 à 10:57
Bonjour,

Je travail actuellement avec vision 2003 et je me trouve face un à problème que je ne parviens pas à résoudre.

j'ai crée un Userform a remplir par l'utilisateur, les données saisies sont ensuite stockée dans un Objet "Serveur" ( classe déclarée dans un module de classe)

A partir de cet objet je retrouve la forme (le dessin) dans mon gabarit et la drop sur ma page.

Je voudrais récupérer l'objet Shape correspondant et le copier dans mon objet "Serveur" dans un attribut de type Shape, lui donner un UniqueId pour pouvoir le modifier plus tard

En gros je drop un Forme une forme de serveur avec ses points de connexion comme ceci
Application.ActiveWindow.Page.Drop Application.Documents.Item("C:\prive\Mes formes\Gabarit.VSS").Masters.ItemU(Serveur.Modele_Materiel), 1.968504, 2.335659



Seulement la fonction drop ne me revoie pas un objet Shape et je ne vois absolument pas comment faire.
J'espérais trouvé une méthode du style dernière forme ajoutée mais après 2 heures de recherche je suis bredouille

Voila j'espère avoir été a peu près clair et je vous remercie d'avance pour vos réponses.

2 réponses

f0k3ry Messages postés 28 Date d'inscription mardi 12 juin 2007 Statut Membre Dernière intervention 22 février 2010
22 févr. 2010 à 13:44
Salut,

Je ne sais pas si tu travailles toujours sur ce projet, si oui, j'espère que tu as trouvé ta réponse. Si tu ne l'as pas trouvée:

######
Visio Automation Reference
Page.Drop Method
Creates one or more new Shape objects by dropping an object onto a receiving object such as a master, drawing page, shape, or group.
Version Information
Version Added: Visio 2.0

expression.Drop(ObjectToDrop, xPos, yPos)

Return Value
Shape
######

La méthode page.Drop renvoie donc bien un objet de type Microsoft.Office.Interop.Visio.Shape.

Bonne continuation.

----------------------------------------------------------------------------------------------------
"On nous tient responsables de nos choix, mais y'en a, y'en a qu'on jamais eu à faire ces choix là."
----------------------------------------------------------------------------------------------------
0
cs_unique07 Messages postés 8 Date d'inscription vendredi 2 mai 2008 Statut Membre Dernière intervention 29 juillet 2010
21 juil. 2010 à 10:57
salut,
je travaille sur une application pour gérer le contenu d'un schema sous visio.
de telle sorte à ce que je parcours mon schéma, je récupère les noms des forms que j'ai, ainsi que les noeuds. ensuite j'ai un traitement à faire après.
mon souci maintenant c'est que je ne sais pas avec quoi dois je commencer.
si quelqu'un peut m'aider je serais très reconnaissant.
tout en sachant que je suis debutant en VBA.
MERCI
0
Rejoignez-nous