在Excel VBA中修复PowerPoint幻灯片中的文本框(右侧)

Dim pptApp As Object
Dim pptPres As Object
Dim pptSlide As Object

Set pptApp = CreateObject("PowerPoint.Application")
Set pptPres = pptApp.Presentations.Open("C:\Path\to\Your\Presentation.pptx")
Set pptSlide = pptPres.Slides(1) '假设要修复的幻灯片是第一张

pptApp.Visible = True '可选，如果需要显示PowerPoint应用程序窗口

'继续下面的步骤...

Dim shape As Object

For Each shape In pptSlide.Shapes
    If shape.Type = 17 Then '17代表文本框
        If shape.Left > pptSlide.Width / 2 Then '判断文本框是否在幻灯片的右侧
            '修复文本框的位置或其他属性
            '例如，将文本框左移一定距离：
            shape.Left = shape.Left - 50 '假设左移50个单位
        End If
    End If
Next shape

pptPres.Save
pptPres.Close
pptApp.Quit

Set pptSlide = Nothing
Set pptPres = Nothing
Set pptApp = Nothing