Excel VBA无法识别Powerpoint中的形状选择

Dim pptApp As Object
Set pptApp = CreateObject("PowerPoint.Application")

Dim pptPresentation As Object
Set pptPresentation = pptApp.Presentations.Open("C:\Path\to\presentation.pptx")

Dim pptSlide As Object
Set pptSlide = pptPresentation.Slides(1) '假设要操作第一张幻灯片

Dim pptShape As Object
Set pptShape = pptSlide.Shapes("ShapeName") '根据形状的名称选择

pptShape.Top = 100 '修改形状的位置
pptShape.TextFrame.TextRange.Text = "Hello, World!" '修改形状的文本内容

pptPresentation.Close
pptApp.Quit

Set pptShape = Nothing
Set pptSlide = Nothing
Set pptPresentation = Nothing
Set pptApp = Nothing