如何检查VBA（PowerPoint）中随机幻灯片上文本框内的文本？

Question

对于我正在制作的演示文稿，我想检查文本框中的文本（该文本框的名称是 TextBox2 并且是ActiveX控件）是否与另一个文本相同文本框（此文本框的名称是 naam 但不是ActiveX控件）。这是我现在的代码：

Dim osld As Slide
Set osld = ActivePresentation.SlideShowWindow.View.Slide

Dim vragen As Byte
Dim juist As Byte
Dim fout As Byte

If osld.Shapes("TextBox2").TextFrame.TextRange = osld.Shapes("naam").TextFrame.TextRange Then
osld.Shapes("TextBox2") = ""

当我想运行此代码时，出现错误（找不到方法或数据成员）。

如何使此代码正常工作？

Answer 1

activepresentation.Slides（1）.Shapes（ “TextBox1中”）。OLEFormat.Object.Text

而不是

If osld.Shapes("TextBox2").TextFrame.TextRange = etc

使用

If osld.Shapes("TextBox2").OLEFormat.Object.Text = etc

和

osld.Shapes("TextBox2").OLEFormat.Object.Text = ""