5

Это может быть очень просто достичь, но я не знаю, как это увидеть.
Когда я создаю презентации с использованием 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

Есть ли лучший / эффективный способ реализовать это?

3 ответа3

3

Есть ли ярлык для перехода к определенному слайду в презентации?

Режим презентации:

  • Номер слайда+Ввод или

  • Щелкните правой кнопкой мыши слайд, выберите "Перейти к слайду" в контекстном меню, а затем выберите слайд из списка по названию или номеру слайда.

Режим редактирования:

  • Нет функции быстрого перехода к конкретному слайду.
1

Я только что столкнулся с той же проблемой. Например, чтобы перейти к слайду 60, мое решение состоит в том, чтобы войти в режим презентации и сразу же вернуться в режим редактирования: <F5> 60 <Enter> <Esc> . Еще несколько нажатий клавиш, но достаточно быстрых и хорошо работающих для меня.

F5: режим презентации

60: желаемый номер слайда

Enter: перейти к слайду

Esc: вернуться в режим редактирования, на показанном слайде

0

@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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .