【VBA/ppt】设置选中字体为红色

提示词笔记：

wps ppt 字体变红 vba代码------问了几个LLM返回的都是修改文本框的代码，明显理解错了；但是选中文本框确实还是能运行的；

进一步地，修改当前文本框中选中的文本，修改为红色，而不是全部变红色------返回可用的东西了。

这是直接修改 选中文本的

Sub ChangeSelectedTextColorToRed()
    ' 检查当前是否有选中的内容
    If ActiveWindow.Selection.Type = ppSelectionText Then
        ' 将选中的文本范围颜色设为红色 (RGB: 255, 0, 0)
        ActiveWindow.Selection.TextRange.Font.Color.RGB = RGB(255, 0, 0)
    Else
        MsgBox "请先选中一段文字后再运行宏！", vbExclamation, "提示"
    End If
End Sub

这是修改文本框

Sub SetSelectedTextRed()
    Dim shp As Shape
    ' 遍历当前选中的所有形状
    For Each shp In ActiveWindow.Selection.ShapeRange
        ' 检查形状是否包含文本
        If shp.HasTextFrame Then
            If shp.TextFrame.HasText Then
                ' 将字体颜色设置为红色
                shp.TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
            End If
        End If
    Next shp
End Sub