PowerPoint中修改ActiveX文本框报错（Error 438）求助

你的代码报错有两个核心原因：

• PowerPoint的Presentation对象本身没有Shapes集合，Shapes属于单个Slide对象，必须先定位到目标幻灯片
• 给ActiveX文本框赋值时，不能直接给OLEFormat.Object赋值，需要访问它的Text属性

修正后的代码示例：

Dim PPTM_app As Object
Dim PPTM_file As Object
Dim targetSlide As Object ' 定义幻灯片对象

Set PPTM_app = CreateObject("Powerpoint.Application")
' 注意：原代码文件名后缀多了下划线，这里修正为标准.PPTM格式
Set PPTM_file = PPTM_app.Presentations.Open(folder_path & ".PPTM")

' 定位到目标幻灯片，这里以第1张为例，也可通过幻灯片名称定位（如.Slides("封面")）
Set targetSlide = PPTM_file.Slides(1)

With targetSlide
    ' 访问ActiveX文本框的Text属性完成赋值
    .Shapes("Title_Txt").OLEFormat.Object.Text = "some text"
    .Shapes("Sub_Txt").OLEFormat.Object.Text = "some text"
End With

PPTM_file.Close SaveChanges:=True
Set targetSlide = Nothing
Set PPTM_file = Nothing
Set PPTM_app = Nothing

额外说明：

• 如果你的ActiveX控件是RichTextBox等非标准类型，需对应调整赋值属性（比如用RTFText）
• 与Word的差异：Word的ActiveX控件可通过FormFields或ContentControls直接定位赋值，而PowerPoint必须严格遵循Slide→Shapes→OLEFormat.Object的层级，且必须明确指定控件的具体属性来完成赋值操作

内容的提问来源于stack exchange，提问作者John Whitney