PowerPoint编程设置单元格文本居中：单行正常多行失效问题

嘿，这个坑我踩过！你现在的问题出在只调整了文本框的锚点属性，但多行文本的水平对齐其实是由段落格式控制的，不是MsoHorizontalAnchor。msoAnchorCenter只是让文本框在单元格里居中锚定，但文本内容本身的对齐还是默认左对齐，所以换行后就不居中了。

直接给你修正后的代码，你可以参考：

' 设置单元格文本
myShape.Table.Cell(1, 1).Shape.TextFrame.TextRange.Text = "shortOK"
myShape.Table.Cell(1, 2).Shape.TextFrame.TextRange.Text = "Long text is not displayed centered"

' 针对每个单元格设置水平居中（关键！）
With myShape.Table.Cell(1, 1).Shape.TextFrame.TextRange.ParagraphFormat
    .Alignment = ppAlignCenter ' 水平居中段落
End With

With myShape.Table.Cell(1, 2).Shape.TextFrame.TextRange.ParagraphFormat
    .Alignment = ppAlignCenter
End With

' 如果需要垂直居中的话，再加上这个（可选）
myShape.Table.Cell(1, 1).Shape.TextFrame.VerticalAnchor = msoAnchorMiddle
myShape.Table.Cell(1, 2).Shape.TextFrame.VerticalAnchor = msoAnchorMiddle

如果要批量处理所有单元格，还可以写个循环省得一个个设置：

Dim rowNum As Integer, colNum As Integer
With myShape.Table
    For rowNum = 1 To .Rows.Count
        For colNum = 1 To .Columns.Count
            With .Cell(rowNum, colNum).Shape.TextFrame
                .TextRange.ParagraphFormat.Alignment = ppAlignCenter
                .VerticalAnchor = msoAnchorMiddle ' 可选垂直居中
            End With
        Next colNum
    Next rowNum
End With

简单总结下关键逻辑：

• MsoHorizontalAnchor控制的是文本框在单元格形状内的锚定位置，不是文本内容的对齐方式
• 要让文本（不管单行还是多行）水平居中，必须设置ParagraphFormat.Alignment = ppAlignCenter
• 垂直居中才需要用到VerticalAnchor = msoAnchorMiddle

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