在power point中使用VBA设置项目符号

Sub SetBulletStyle()
    Dim slide As Slide
    Dim shape As Shape
    
    ' 遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 遍历每个形状
        For Each shape In slide.Shapes
            ' 检查形状是否为文本框
            If shape.HasTextFrame Then
                shape.TextFrame.TextRange.ParagraphFormat.Bullet.Type = ppBulletUnnumbered   ' 设置项目符号类型为无编号
                shape.TextFrame.TextRange.ParagraphFormat.Bullet.Font.Name = "Arial"          ' 设置项目符号的字体
                shape.TextFrame.TextRange.ParagraphFormat.Bullet.Font.Color.RGB = RGB(255, 0, 0)  ' 设置项目符号的颜色为红色
            End If
        Next shape
    Next slide
End Sub