挂起行文本的左缩进与PowerPoint中使用VBA的第一行的左缩进相同

Sub SetIndent()
    Dim slide As Slide
    Dim shape As Shape
    Dim textFrame As TextFrame
    Dim paragraph As TextRange

    ' 设置幻灯片索引，根据实际情况修改
    Set slide = ActivePresentation.Slides(1)

    ' 设置形状索引，根据实际情况修改
    Set shape = slide.Shapes(1)

    ' 判断形状是否为文本框
    If shape.HasTextFrame Then
        Set textFrame = shape.TextFrame

        ' 判断文本框是否包含文本
        If textFrame.HasText Then
            Set paragraph = textFrame.TextRange.Paragraphs(1)

            ' 设置左缩进值，根据实际情况修改
            paragraph.ParagraphFormat.LeftIndent = 36 ' 单位为磅（Points）
        End If
    End If
End Sub