Bouton fuyant sur powerpoint

Bonjour,

Sous Powerpoint 2008, je cherche a effectuer une macro afin de créer un bouton fuyant. Il se situe sur la diapositive n°17, et correspond au rectangle 6: "< Non". Il correspond à une zone texte avec mise en forme WordArt.

VOici la macro que j'ai trouvée sur internet mais l'explication qui la suivait était très peu précise et je ne sais pas comment remplacer les données qui sont à remplacer...

Voici la macro:

"Sub Gag(osh As Shape)
With ActivePresentation.PageSetup
osh.Left = Int(Rnd * .SlideWith * 0.9)
osh.Top = Int(Rnd * .SlideHeight * 0.9)
End With
End Sub"

Y a t-il des fautes? Quelles données modifier? Comment, et ou trouver ces données?

Merci beaucoups de votre aide, je pense que ma présentation powerpoint va avoir un effet assuré avec ce type de gadget ^^