vba - 由 VBA 代码设置的自定义节目的操作，但它显示“自定义节目”不存在“

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

标签： vbams-officepowerpoint

Answer 1

替换这个：

.ActionSettings(ppMouseClick)
.Action = ppActionNamedSlideShow

有了这个：

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