Как запустить анимацию, если была нажата гиперссылка на другой слайд?

Question

Я хотел бы знать, возможно ли запустить анимацию на определенном слайде, если была использована определенная гиперссылка на другом слайде той же презентации.

---

Фон:

В настоящее время я использую PowerPoint2016 для создания слайдов для игры PowerPoint Karaoke. Я начал с выбора слайда, где пять маленьких значков представляют каждый из пяти наборов слайдов, которые я подготовил. Каждый значок является гиперссылкой на первый слайд соответствующего набора.
После завершения набора слайдов показывается слайд с гиперссылкой на выбранный слайд и удаляется соответствующий значок (достигается с помощью анимации, которая запускается нажатием на значок с гиперссылкой).
В качестве последнего слайда я хотел бы включить слайд для голосования, на котором отображаются все значки наборов слайдов, которые использовались на протяжении всей игры. Если быть точным: если бы использовались три из пяти наборов слайдов, я бы хотел, чтобы слайд для голосования включал только эти три значка вместо всех пяти.
Моя идея заключалась в том, чтобы как-то вызвать анимацию на слайде для голосования в зависимости от того, какая гиперссылка была нажата во время игры.

Я был бы очень признателен за любую идею о том, как мне достичь описанного выше поведения, возможно, также используя совершенно другой подход. Пожалуйста, дайте мне знать, если какая-либо информация отсутствует.

Answer 1

Хотя я не смог понять, как создать анимационный триггер на слайде, отличном от самого анимации, я смог решить свою проблему с помощью следующего кода VBA.

Option Explicit
Private Const VotingSlideAs Integer = 5
Private Const TargetSlideNumber As Integer = 3


Sub FirstIcon()
  Dim myPresentation As Presentation
  Dim mySlide As Slide
  Dim myImageBox As Shape
  Dim myTextBox As Shape

  Set myPresentation = ActivePresentation
  Set mySlide = myPresentaion.Slides.Item(VotingSlide)
  Set myImageBox = mySlide.Shapes.AddPicture("filename", msoCTrue, msoCTrue, 100, 100, 85, 85)

  With SlideShowWindows(1).View
         .GotoSlide (TargetSlideNumber)
  End With

End Sub

Приведенный выше код назначается значку на слайде выбора с помощью insert action . После нажатия на значок код вставляет filename изображения в указанную позицию слайда для голосования и запускает переход к слайду, указанному с помощью TargetSlideNumber (начало соответствующего набора слайдов). Повторение аналогичного кода для всех значков на слайде выбора в конечном итоге приводит к желаемому поведению.