[VI-2003] Macro et shapesheet

[Alex_75013]

Bonjour à tous!

J'ai découvert récemment la puissance shapesheets sous visio mais il a un truc que je voudrais faire et qui me bloque totalement depuis plusieurs jours.

Dans la partie "Custom Prop" je souhaiterais appeler une fonction VBA dans un champs "Value". Cette fonction me retournerait la valeur calculée mais je n'y arrive pas.

J'ai essayé de mettre l'instruction:

Code :

=CALLTHIS("MAIN.test")

et créé dans un module MAIN la fonction

Code :

1
2
3
Public Function test(shp As Shape) As String
    test = "3"
End Function

Mais dans le shapesheet quand j'affiche la valeur retournée il y "FALSE"

Pouvez-vous m'aider? Me donner des pistes?
Merci
Alex