在powerpoint字体颜色选择器中更改颜色的VBA代码

Sub ChangeFontColor()
    Dim selectedShape As Shape
    Dim selectedTextRange As TextRange
    Dim colorPicker As Office.MsoRGBType
    
    ' 获取当前选中的形状
    Set selectedShape = ActiveWindow.Selection.ShapeRange(1)
    
    ' 检查选中的形状是否为文本框
    If selectedShape.HasTextFrame Then
        ' 获取文本框中的文本范围
        Set selectedTextRange = selectedShape.TextFrame.TextRange
        
        ' 打开字体颜色选择器
        colorPicker = Application.Dialogs( _
            xlDialogEditColor).Show( _
            initialColor:=selectedTextRange.Font.Color.RGB)
        
        ' 更改文本范围的字体颜色
        selectedTextRange.Font.Color.RGB = colorPicker
    Else
        MsgBox "请先选择一个包含文本的形状。"
    End If
End Sub