Objectif : envoyer la diapositive en cours à la fin du diaporama et aller à la diapositive suivante. Très utile si vous êtes en train de retravailler une présentation et que des diapositives spécifiques doivent être envoyées en annexes.
On obtient ceci, qu'il ne reste plus qu'à ajouter à la barre d'accès rapide, dans les options de powerpoint (voir image)
Sub SendSlideToEnd()
Dim originalIndex As Integer
Dim slideID As Long
Dim newSlide As Slide
Dim i As Integer
' Get the index and ID of the current slide
originalIndex = ActiveWindow.View.Slide.slideIndex
slideID = ActiveWindow.View.Slide.slideID
' Move the slide to the end
ActivePresentation.Slides(originalIndex).MoveTo ActivePresentation.Slides.Count
' Find the slide by its original ID to select it again
For i = 1 To ActivePresentation.Slides.Count
If ActivePresentation.Slides(i).slideID = slideID Then
ActiveWindow.View.GotoSlide originalIndex
Exit For
End If
Next i
End Sub