Cela peut être très simple à réaliser, mais je ne sais pas comment le traverser.
Lorsque je crée des présentations avec MS PowerPoint, je dois passer d’une diapositive à une autre (disons de la diapositive 3 à la diapositive 45). Jusqu'à présent, j'ai atteint la diapositive requise à l'aide de la trieuse de diapositives.
Pour une exigence similaire, MS Word a l'option Go to page
qui peut être appelée à l'aide du raccourci clavier Ctrl+G
.
Existe-t-il un raccourci similaire pour accéder à une diapositive particulière lors de l'édition de diapositives dans MS PowerPoint?
Mise à jour
D'après la réponse ci-dessous et d'après la recherche sur Internet, je comprends qu'en mode édition , on ne peut pas accéder à une diapositive particulière (comme on irait à une page dans Word ).
J'ai écrit la macro suivante pour implémenter cette fonctionnalité.
'Go to a particular slide when in edit mode
Sub go_to_slide()
Dim S As Integer
Dim total_slides As Integer
total_slides = ActivePresentation.Slides.Count
S = InputBox("Enter slide number", "Go To Slide")
If (S <= 0) Then
MsgBox ("Enter slide number greater than zero")
ElseIf (S > total_slides) Then
MsgBox ("Enter slide number less than the total slides")
ElseIf (S <= total_slides) Then
ActivePresentation.Slides(S).Select
End If
End Sub
Existe-t-il un moyen plus efficace/efficace de mettre cela en œuvre?
Je viens de rencontrer le même problème. Par exemple, pour passer à la diapositive 60, ma solution consiste à entrer en mode présentation et à revenir au mode édition immédiatement après: <F5> 60 <Enter> <Esc>
. Quelques touches de plus, mais assez vite et qui fonctionnent bien pour moi.
F5: mode de présentation
60: le numéro de diapositive souhaité
Entrez: allez à la diapositive
Echap: retour en mode édition, sur la diapositive affichée
Mode de présentation:
Slide number+Enter, ou
Right-click une diapositive, sélectionnez "Aller à la diapositive" dans le menu contextuel, puis sélectionnez une diapositive dans la liste par titre ou numéro de la diapositive.
Mode édition:
@Prasanna, merci pour votre code, qui n'a pas fonctionné pour moi mais m'a permis de démarrer.
Cette version fonctionne pour moi. J'aurais aimé savoir comment lui affecter une commande au clavier (raccourci clavier).
Sub go_to_slide() 'Go to a particular slide when in edit mode. Adapted from https://superuser.com/q/1174096/74576
Dim slide_num As Integer
Dim total_slides As Integer
total_slides = ActivePresentation.Slides.Count
slide_num = InputBox("Enter slide number between 1 and " & total_slides, "Go To Slide")
If ((slide_num <= 0) Or (slide_num > total_slides)) Then
go_to_slide
ElseIf (slide_num <= total_slides) Then
'MsgBox ("Jumping to slide #" & slide_num)
ActiveWindow.View.GotoSlide slide_num
End If
End Sub