Image ou teste lier à la souris.

salut à tous

Voilà je voudrais faire suivre une image ou texte au curseur de ma souris dans une présentation power point 2000 que je fait distribuer aux membre de mon club. Mais je n'arrive pas à programmé ça comme il le faudrais, Je vous mais du VBasic que j'ai trouvé sur internet, mais je ne comprend pas cela ne marche pas. Quelqu'un peut il m'aidé.

Option Explicit
Type TPoint: X As Long: Y As Long: End Type
Declare Function GetCursorPos Lib "user32" (point As TPoint) As Long
Sub Anim()
Dim souris As TPoint
Dim elm As Shape: Dim d, maxX, maxY
With ActivePresentation
d = .SlideShowWindow.View.CurrentShowPosition
Set elm = .Slides(d).Shapes(1)
maxX = .PageSetup.SlideWidth
maxY = .PageSetup.SlideHeight
Do
GetCursorPos souris
elm.Left = souris.X * maxX / 1280
elm.Top = souris.Y * maxY / 1024
.SlideShowWindow.View.GotoSlide d, msoFalse
DoEvents
Loop Until souris.X < 10 And souris.Y < 10
Beep
End With
End Sub


voilà. j'ai bien enregistré ça dans un module et mis mon image sur une diapo, mais rien...

Merci de votre aide.