Question

我一直在寻找一个脚本来帮助我更改PowerPoint中项目符号的颜色，我找到了一个脚本，但这不是我在下面寻找的脚本

Sub Bullet()



With Application.ActivePresentation.Slides(2).Shapes(1).TextFrame

    With .TextRange.ParagraphFormat.Bullet

        .Visible = True

        .RelativeSize = 1.25

        .Font.Color = RGB(255, 0, 255)

    End With

End With
End Sub

它只是更改所提到形状的幻灯片，我希望对其进行自定义，就像我选择某些TextFrame一样，它应该仅更改所选的TextFrame。我是新手，所以如果你们能在这方面帮助我，那将是很大的帮助。

Answer 1

您想要activewindow.selection。这会将您的代码仅应用于所选对象。

Sub Bullet()
    With ActiveWindow.Selection
        With .TextRange.ParagraphFormat.Bullet
            .Visible = True
            .RelativeSize = 1.25
            .Font.Color = RGB(255, 0, 255)
        End With
    End With
End Sub

使用VBA脚本更改项目符号点颜色

1 个答案: