Действие Custom Show, заданное кодом VBA, но оно говорит: «Custom Show» «не существует»

Question

Я использую код для следующих действий;1. Получить индекс текущего слайда2. Перейти к конкретному слайд-шоу3. Измените действие формы, чтобы перейти к определенному слайд-шоу (означает вернуться к предыдущему, но я не хочу использовать действие ppPreviousSlide)

Все работает нормально, но когда я щелкнул форму, которую я изменяюВзаимодействие действий, оно говорит «Пользовательское шоу не существует»

Ошибка

Sub gotoTomatoVariety()
Dim tomatoSlide As Integer: tomatoSlide = 63
Set tableSlide = ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
SlideShowWindows(1).View.GotoSlide (tomatoSlide)

With ActivePresentation.Slides(tomatoSlide).Shapes("Go Back") _
    .ActionSettings(ppMouseClick)
    .Action = ppActionNamedSlideShow
    .SlideShowName = "Slide59"
End With
End Sub

Answer 1

Заменить это:

.ActionSettings(ppMouseClick)
.Action = ppActionNamedSlideShow

на это:

With.ActionSettings(ppMouseClick)
  .Action = ppActionNamedSlideShow
  .SlideShowName = "name of your custom show"
End With ' action settings