代码之家 › 专栏 › 技术社区 › JeroenW

如何在VBA(PowerPoint)中检查随机幻灯片上文本框内的文本?

powerpoint vba

JeroenW · 技术社区 · 7 年前

对于我正在做的演示,我想检查文本框中的文本(该文本框的名称为 文本框2 和是ActiveX控件)与另一个文本框中的文本相同(此文本框的名称为纳姆但不是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") = ""

当我想运行这段代码时,我得到一个错误(找不到方法或数据成员)。

如何使此代码正常工作?

1 回复 | 直到 7 年前

Steve Rindsberg 7 年前

activepresentation。幻灯片(1)。形状(“文本框1”)。OLEFormat。对象文本

而不是

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

使用

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

和

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

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

7 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

7 月前

Eric · 我有邮政编码替换问题Excel VBA

7 月前

Chasester · VBA使用嵌套的DIV抓取URL

7 月前

jkp · 特殊字符复选标记

7 月前

Iron Man · 代码插入和复制到错误的工作表

7 月前

NoFafo · 将文本框放入数组进行格式化

7 月前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

7 月前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

8 月前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

8 月前