Image ou teste lier à la souris.

Fermé
jharde Messages postés 98 Date d'inscription dimanche 13 février 2005 Statut Membre Dernière intervention 4 juin 2008 - 19 juil. 2006 à 18:51
byakhlefncr Messages postés 260 Date d'inscription vendredi 1 juillet 2005 Statut Membre Dernière intervention 11 septembre 2008 - 20 juil. 2006 à 10:03
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.

1 réponse

byakhlefncr Messages postés 260 Date d'inscription vendredi 1 juillet 2005 Statut Membre Dernière intervention 11 septembre 2008 63
20 juil. 2006 à 10:03
salut,

Pour powerpoint on n'utilise pas le VBA mais plutôt du script microsoft (sous format html + JScript + Vbscript (le VBA peut être appelé dans le script) : C'est pour quoi on ne trouve pas dans le VBA les objet 'slide' qui sont des diapos ni l'objet 'presentation'.

Pour éditer ce script dans le menu : Outils-->Macro-->Microsoft Script Editor.

Désolé, je ne peux pas t'aider d'avantage pour le moment, car je n'ai jamais utiliser ce script.


Bonne chance.
0