Excel VBA 更新 PowerPoint 文本框

Question

在以下编码的帮助下，我可以打开 powerpoint 文件，但它没有更新文本框。

我收到“对象变量或未设置 block 变量”的错误。

Dim PPT As PowerPoint.Application
Dim pres As PowerPoint.Presentation
Dim newslide As PowerPoint.Slide
Dim slideCtr As Integer
Dim tb As PowerPoint.Shape

Set PPT = CreateObject("PowerPoint.Application")
PPT.Visible = True
Set pres = PPT.Presentations.Open( _
    "C:\Users\GShaikh\Desktop\Process Coach certificate template.pptx")
slideCtr = 1
Set tb = newslide.Shapes("TextBox1")
tb.TextFrame2.TextRange.Characters.Text = "OK"

Answer 1

尝试:

    PPT.ActivePresentation.Slides(2).Shapes("TextBox1").TextFrame.TextRange.Characters.Text = "qwerty"

要获得正确的形状名称(在输入框中以便您可以复制它)，请选择它并运行:

a = InputBox("The name of the selected shape is:", "Name of the Shape", PPT.ActiveWindow.Selection.ShapeRange.Name)

要更改它，请在选择它时尝试:

PPT.ActiveWindow.Selection.ShapeRange.Name = "TextBox2"

希望这可以帮助。