[VI-2003] recuperation du shape actif [Résolu]

[seba0902]

Bonjour à tous, je suis nouveau sur le Forum et je sollicite votre aide.

Je souhaite, à partir d'une macro, récupérer l'id du shape sélectionné pour pouvoir, dans un premier temps, lui modifier son texte.
Le but étant par la suite, de récupérer dans une base de données d'autre information que je mettrai dans des cutom properties et cela sur base du type de shape sélectionné.

Merci d'avance

[seba0902]

Je viens de trouver, voila le code

Dim Capteur As String
Dim vsoCharacters1 As Visio.Characters
Dim vsoShape1 As Visio.Shapes

Capteur = InputBox("Nom du capteur")

Set vsoShape1 = ActiveWindow.Selection.PrimaryItem
Set vsoCharacters1 = Application.ActiveWindow.Page.Shapes.ItemFromID(vsoShape1 .ID).Characters

vsoCharacters1.Text = Capteur

Maintenant je n'ai plus qu'a faire le reste