Vous l'avez remarqué : lorsque les animations ont été jouées, elles ne seront pas rejouées une seconde fois, sauf, bien entendu, dans un diaporama qui tourne en boucle.

Dans cet autre article, je donne la solution qui passe par un diaporama personnalisé et qui permet de revenir autant de fois qu'on le souhaite sur une diapo particulière (ou un groupe de diapo) et d'en rejouer les animations.

Voici une autre solution qui passe par une macro et qui permettra, contrairement à l'article cité ci-dessus, de relancer les animations de la diapositive en cours d'affichage. Pour cela vous devrez affecter la macro à un objet quelconque situé sur la diapositive.

Si vous souhaitez pouvoir utiliser cette macro ponctuellement, mais à tout instant et sur n'importe quelle diapo en cours d'affichage, vous pourrez mettre l'objet sur lequel cliquer dans le masque. Ainsi il sera disponible depuis n'importe quelle diapo.


Sub rejoue()
Dim diapo
diapo = SlideShowWindows(1).View.CurrentShowPosition
SlideShowWindows(1).View.GotoSlide diapo, True
End Sub
 

S'il s'agit de systématiquement relancer TOUTES les animations sur TOUTES les diapos, à chaque fois qu'on les réaffiche, utilisez la macro suivante :

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
Dim diapo
On Error Resume Next
diapo = SSW.View.CurrentShowPosition
SlideShowWindows(1).View.GotoSlide diapo, True
End Sub