afficher une image au passage de la souris pendant 10seconde

Forum Microsoft Office PowerPoint

Modérateur : Argitxu

afficher une image au passage de la souris pendant 10seconde

Publicité
 

nawak83
Posteur débutant
Posteur débutant
Messages : 2
Enregistré le : 01 mars 2019, 16:02

afficher une image au passage de la souris pendant 10seconde

Message non lu par nawak83 » 01 mars 2019, 16:07

Bonjour,

je souhaiterai modifier ma macro si dessous pour qu'au passage de ma souris sur un objet une image s'affiche pendant 10 seconde par exemple.
Pour le moment j'ai trouvé un code qui me permet d'afficher mon image mais je doit passer ma souris dessus pour qu'elle disparaisse.

merci pour vos réponse
Cordialement

Sub image_apparaitre()

If ActivePresentation.Slides(1).Shapes("Image").Visible = msoFalse Then
ActivePresentation.Slides(1).Shapes("Image").Visible = msoTrue
End If
End Sub


Sub image_disparaitre()
ActivePresentation.Slides(1).Shapes("Image").Visible = msoFalse
End Sub

nawak83
Posteur débutant
Posteur débutant
Messages : 2
Enregistré le : 01 mars 2019, 16:02

Re: afficher une image au passage de la souris pendant 10seconde

Message non lu par nawak83 » 01 mars 2019, 16:43

Re bonjour,

A force de bidouiller j'ai fini par réussi a trouver
Voici le code

Sub image_apparaitre5seconde()
If ActivePresentation.Slides(1).Shapes("Image").Visible = msoFalse Then
ActivePresentation.Slides(1).Shapes("Image").Visible = msoTrue
Start = Timer
While Timer < (Start + 5)
DoEvents
Wend
End If
ActivePresentation.Slides(1).Shapes("Image").Visible = msoFalse
End Sub

Par contre une autre question, je dois le faire pour plusieurs photos sur plusieurs formes régulièrement en changeant les photos, comment faire pour éviter de modifier a chaque fois la macro?

Répondre