如何使用VBA在PowerPoint中更改对象(例如Word Art)的垂直和水平位置

Question

我有很多幻灯片，每个幻灯片都带有一个单词。我希望将艺术一词与幻灯片的绝对中心保持一致。我尝试过的代码是：

Option Explicit
Sub format()
    Dim sl As Slide
    Dim ob As Object
    For Each sl In ActivePresentation.Slides
        For Each ob In sl.Shapes
            With ob.TextFrame
                 '  .TextRange.Paragraphs.ParagraphFormat.Alignment = ppAlignCenter
                 '  .TextRange.Paragraphs.ParagraphFormat.Alignment = ppAlignMiddle
                 .HorizontalAnchor = msoAnchorCenter
                 .VerticalAnchor = msoAnchorMiddle
             End With
         Next ob
    Next sl
End Sub

Answer 1

也许会有所帮助。

Option Explicit
Sub format()
Dim sl As Slide
    For Each sl In ActivePresentation.Slides
        sl.Shapes.Range.Align msoAlignCenters, msoTrue
        sl.Shapes.Range.Align msoAlignMiddles, msoTrue
    Next sl
End Sub