excel - 如何通过VBA Excel设置对齐Shape中的段落？

Question

在 Shape 中，我有 2 个段落，其中第 1 段右对齐，第 2 段左对齐:

如果我想使用 VBA for Excel 更改形状内段落的对齐方式，我该怎么做？

Answer 1

我认为这很简单。检查此代码:

Sub AlignParagraphs()

    Dim SHP As Shape
    Set SHP = ActiveSheet.Shapes(1)

    Dim txtRNG2 As TextRange2
    Set txtRNG2 = SHP.TextFrame2.TextRange

    With txtRNG2
        .Paragraphs(1).ParagraphFormat.Alignment = msoAlignRight
        .Paragraphs(2).ParagraphFormat.Alignment = msoAlignLeft
    End With

End Sub