Powerpoint VBA 基础知识：更改事件上的文本框

Question

我在 Office 2010 中有一个幻灯片演示文稿，希望使用文本框作为计算输入，并在值更改时在另一个文本框中显示结果。

在 StackOverflow 的帮助下，我找到了文本框参考：Slides(2).Shapes(12) - 所以这段代码应该做点什么？ -

Sub Slide2_Shape12_Change()
    MsgBox "Hello!"
End Sub

..但是当我在框中输入新值时什么也没有发生。已经卡住了！请原谅这个简单的问题。

Answer 1

代码需要位于右侧幻灯片的代码隐藏模块中，并且 Sub 的名称需要完全正确。最简单的方法是，将文本框添加到幻灯片中并在 PowerPoint 功能区中显示“开发人员”选项卡后，选择文本框，然后单击“查看代码”按钮。它应该带您到正确的模块并用子的“签名”填充它（例如，如果您的文本框称为 TextBox1）

Private Sub TextBox1_Change()

End Sub

在此子中，您可以执行您想要的操作，例如将文本发送到立即窗口

Private Sub TextBox1_Change()
    Dim text As String
    text = TextBox1.text
    Debug.Print "'" & text & "'"
End Sub

...或者，如果您的另一个 TextBox 称为 TextBox 2，您可以在其中显示文本，例如

Private Sub TextBox1_Change()
    Dim text As String
    text = TextBox1.text
    TextBox2.text = text
End Sub