Это может быть очень просто достичь, но я не знаю, как это увидеть.
Когда я создаю презентации с использованием MS PowerPoint, мне нужно переходить от слайда к слайду (скажем, от слайда 3 к слайду 45). До сих пор я достиг нужного слайда с помощью сортировщика слайдов.
Для аналогичного требования в MS Word есть опция, Go to pageкоторую можно вызвать с помощью Ctrl+Gсочетания клавиш.
Существует ли аналогичный ярлык для перехода к определенному слайду при редактировании слайдов в MS Powerpoint?
Обновить
Из приведенного ниже ответа и из поиска в Интернете я понимаю, что в режиме редактирования нельзя перейти к определенному слайду (как к странице в Word).
Я написал следующий макрос для реализации этой функциональности.
'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 Есть ли лучший / эффективный способ реализовать это?
Режим презентации:
Slide number+ Enterили
Right-clickслайда, выберите «Перейти к слайду» в контекстном меню, а затем выберите слайд из списка по названию или номеру слайда .
Режим редактирования:
Я только что столкнулся с той же проблемой. Например, чтобы перейти к слайду 60, мое решение, чтобы войти в режим презентации и вернуться в режим редактирования сразу после этого: <F5> 60 <Enter> <Esc>. Еще несколько нажатий клавиш, но достаточно быстрых и хорошо работающих для меня.
F5: режим презентации
60: желаемый номер слайда
Enter: перейти к слайду
Esc: вернуться в режим редактирования, на показанном слайде
@Prasanna, спасибо за ваш код, который не работал для меня, но заставил меня начать.
Эта версия работает для меня. Хотел бы я знать, как назначить ему клавиатуру (горячую клавишу).
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