更改图表形状文本框的颜色（Excel VBA）

Question

在弄清楚如何获取.Font.ColorIndex的输入并使用它来更改图表的文本框形状的字体颜色时遇到麻烦。

.Font.ColorIndex返回48

当我更改宏中文本的颜色时，它将返回以下内容：

        With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
            .Visible = msoTrue
            .ForeColor.ObjectThemeColor = msoThemeColorBackground1 ' How to set this value from a font color? Can you?
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = -0.5
            .Transparency = 0
            .Solid
        End With

这可能吗？

Answer 1

您要混合使用不同的颜色类型。 ObjectThemeColor表示的颜色与您使用的48不同。

查看Microsoft website可用的选项是：

您可能希望将ColorIndex转换为RGB，然后插入。您需要一个自定义函数，但并不难。只需将此函数粘贴到您的代码模块中的某个位置即可。

Function getRGB(C As Long, LetterTYPE As String) As Integer
        Dim R As Long
        Dim G As Long
        Dim B As Long

        R = C Mod 256
        G = C \ 256 Mod 256
        B = C \ 65536 Mod 256

        If UCase(LetterTYPE) = "R" Then
           getRGB = R
        ElseIf UCase(LetterTYPE) = "G" Then
            getRGB = G
        ElseIf UCase(LetterTYPE) = "B" Then
            getRGB = B
        End If
End Function

然后重写您的原始代码以包括新创建的公式：

YourColor = 48
  With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(getRGB(YourColor , "R"), getRGB(YourColor , "G"), getRGB(YourColor , "B"))
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = -0.5
            .Transparency = 0
            .Solid
        End With