更改所选 TextFrame 中的项目符号点颜色

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

它改变了上述形状的幻灯片。

我想要 select 一些 TextFrame，它应该只更改 selected 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

更改所选 TextFrame 中的项目符号点颜色

Change bullet point color in selected TextFrame

powerpoint

vba