如何使用vba在PowerPoint中改变对象的垂直和水平位置，例如艺术字？

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