VBA实现PPT所有幻灯片文本框居中，现有代码运行无效求解决方案

你提供的原始代码仅修改了幻灯片母版的第一个形状，没有遍历全部普通幻灯片中的所有文本框对象，因此无法实现全文档文本框的居中效果。

操作步骤 #

• 打开目标PPT文件，按下Alt + F11唤出VBA编辑器
• 在左侧项目窗口右键点击你的演示文稿名称，选择「插入」-「模块」
• 将下方的VBA代码粘贴到模块编辑窗口
• 按下F5运行CenterAllTextBoxContent宏即可完成批量设置

完整可行VBA代码 #

Sub CenterAllTextBoxContent()
    Dim slide As Slide
    Dim shp As Shape
    
    ' 遍历演示文稿中所有幻灯片
    For Each slide In ActivePresentation.Slides
        ' 遍历当前幻灯片中所有形状
        For Each shp In slide.Shapes
            ' 筛选包含文本的文本框对象
            If shp.HasTextFrame Then
                If shp.TextFrame.HasText Then
                    ' 设置文本框内容垂直居中锚点
                    shp.TextFrame.VerticalAnchor = msoAnchorMiddle
                    ' 设置文本框内容水平居中锚点
                    shp.TextFrame.HorizontalAnchor = msoAnchorCenter
                    ' 设置文本段落水平居中对齐
                    shp.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
                End If
            End If
        Next shp
    Next slide
    
    ' 可选：同时处理母版位置的文本框可取消下方注释
    ' For Each shp In ActivePresentation.SlideMaster.Shapes
    '     If shp.HasTextFrame Then
    '         If shp.TextFrame.HasText Then
    '             shp.TextFrame.VerticalAnchor = msoAnchorMiddle
    '             shp.TextFrame.HorizontalAnchor = msoAnchorCenter
    '             shp.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
    '         End If
    '     End If
    ' Next shp
    
    MsgBox "所有文本框内容居中设置完成！", vbInformation
End Sub

注意事项 #

• 代码默认仅处理普通幻灯片中的文本框，如需同时修改母版、备注页的文本框，取消对应注释块即可
• 运行前建议先备份原PPT文件，避免操作失误无法回退

内容的提问来源于stack exchange，提问作者Hoan Cong