VBA设置PPT中text box靠左对齐

要设置PPT中text box靠左对齐，可以使用以下VBA代码：

Sub LeftAlignTextBoxes()
    Dim sld As Slide
    Dim shp As Shape
    
    '循环遍历每张幻灯片
    For Each sld In ActivePresentation.Slides
        '循环遍历每个形状
        For Each shp In sld.Shapes
            If shp.Type = msoTextBox Then '如果是文本框
                '设置文本框的水平对齐方式为左对齐
                shp.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignLeft
            End If
        Next shp
    Next sld
End Sub

这段代码会将每张幻灯片中所有的文本框都设置成靠左对齐。你可以将代码复制到PPT的VBA编辑器中，然后运行它即可。