☰

Переход к определенному слайду в PowerPoint при создании слайдов

tag-icon • tag-icon microsoft-office vba microsoft-powerpoint microsoft-powerpoint-2010
Переход к определенному слайду в PowerPoint при создании слайдов

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

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

решение1

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

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

  • Slide number+ Enter, или

  • Right-clickслайд, выберите «Перейти к слайду» в контекстном меню, а затем выберите слайд из списка,заголовокилиномер слайда.

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

  • Функция быстрого перехода к определенному слайду отсутствует.

решение2

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

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

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

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

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

решение3

@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

решение4

  1. Выберите текст, который вы хотите использовать в качестве ссылки на определенный слайд.
  2. перейти к вставке -> ссылки-> действие
  3. выбрать гиперссылку -> выбрать слайд

эта ссылка теперь работает при редактировании PowerPoint и во время самой презентации

Связанный контент