使用VBA PowerPoint修改幻灯片中项目符号和项目符号文本之间的缩进

Sub ModifyIndentation()
    Dim slide As Slide
    Dim shape As Shape
    Dim textRange As TextRange
    
    ' 遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 遍历每个形状
        For Each shape In slide.Shapes
            ' 检查形状是否为文本框
            If shape.HasTextFrame Then
                Set textRange = shape.TextFrame.TextRange
                ' 检查文本框是否有项目符号
                If textRange.ParagraphFormat.Bullet.Type <> ppBulletNone Then
                    ' 修改项目符号和项目符号文本之间的缩进
                    textRange.ParagraphFormat.Bullet.RelativeSize = 1
                    textRange.ParagraphFormat.Bullet.Font.Size = 12
                    textRange.ParagraphFormat.Bullet.Font.Name = "Arial"
                    textRange.ParagraphFormat.Bullet.Font.Color.RGB = RGB(255, 0, 0) ' 设置为红色
                    textRange.ParagraphFormat.Bullet.Font.Bold = True
                    textRange.ParagraphFormat.FirstLineIndent = 20 ' 设置缩进值，单位为磅（Points）
                End If
            End If
        Next shape
    Next slide
End Sub