在PowerPoint中更改幻灯片时如何运行vba代码？

Question

更换幻灯片时，我试图重置一些文本框和标签的内容，但我正努力使其工作。 经过大量的谷歌搜索和搜索后，我想出了这个方法，但是它似乎没有用。 我正在尝试在PowerPoint 2013和2016中使用OnSlideShowPageChange事件，但它似乎没有效果。 我不习惯使用PowerPoint vba，因此我可能做的是完全错误的事情。

编辑：我设法找到一种重置标签文本的替代方法。 当用户将焦点放在文本框之一上或将鼠标移到标签上时，我设法将其重置。 但是，我仍然很想知道这个问题的答案。 我不确定为什么我的代码无法正常工作。

如果有人可以指出任何问题以及如何解决这些问题，我将不胜感激。

到目前为止，这是我得到的：

Public Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
    Dim Sld As Slide

    If Wn.View.CurrentShowPosition = 9 Then
        'Perform Updates for slide #9
        Set Sld = Application.ActivePresentation.Slides(9)
        Sld.Shapes(TextBox_Form_Name).TextFrame.TextRange.Text = ""
        Sld.Shapes(TextBox_Form_Email).TextFrame.TextRange.Text = ""
        Sld.Shapes(TextBox_Form_Message).TextFrame.TextRange.Text = ""
        Sld.Shapes(Label_Form_Info).TextFrame.TextRange.Text = ""
    End If

    If Wn.View.CurrentShowPosition = 18 Then
        'Perform Updates for slide #18
        Set Sld = Application.ActivePresentation.Slides(18)
        Sld.Shapes(TextBox_Form_Name).TextFrame.TextRange.Text = ""
        Sld.Shapes(TextBox_Form_Email).TextFrame.TextRange.Text = ""
        Sld.Shapes(TextBox_Form_Message).TextFrame.TextRange.Text = ""
        Sld.Shapes(Label_Form_Info).TextFrame.TextRange.Text = ""
    End If
End Sub

我也尝试过将形状名称放在语音标记中，但这似乎无济于事。

顺便说一句，我需要代码才能在PowerPoint 2013和2016中使用。

Answer 1

这是来自http://www.pptfaq.com的PowerPoint常见问题解答的答案

假设依赖于OnSlideShowPageChange（SHW as SlideshowWindow）事件的代码在VBA中运行时或在PowerPoint中启动演示文稿时起作用，但在双击PPS或PPSM图标开始显示时不起作用。 幻灯片放映正常启动，但是OnSlideShowPageChange子例程中的代码永远不会运行。

解决方案在第一张幻灯片上添加Active-X控件（从“开发人员”选项卡中）（如果您不希望在幻灯片放映过程中看到它，请将其拖离幻灯片）。

这将强制VBA在演示文稿开始时进行初始化，因此将触发事件并运行您的代码。