如何通过VBA代码获取Excel 2012条件格式的色标制作的颜色

Question

我需要知道：如何通过 VBA 代码获取 Excel 2010 条件格式的色标生成的颜色。这些颜色随后将由 VBA 根据下图指定为图表背景：

www.lnkm.cz/Slozka/Example.jpg http://www.lnkm.cz/Slozka/Example.jpg

我对各种网络方面进行了研究，并且：

1. 大多数人建议如何通过方法读取条件格式的颜色 <Cell>.FormatConditions(index that is active).Interior.ColorIndex 但在我的情况下它不起作用，因为错误“对象不支持此属性或方法”
2. 有些人建议编写自己的颜色计算（基于单元格值）。我找到了各种方法，但没有一种方法可以计算出与之前 excel 计算出的颜色相同的颜色（与上一张图片上的颜色相同）。

所以我问：

1. 有没有办法直接从单元格中准备好颜色？ （或者 API 无法访问这些颜色）
2. 你知道如何计算与 excel 计算相同的颜色吗？
3. 您知道如何解决我的问题吗？

我相信它必须以某种方式工作。

Answer 1

如果没有提供更好的答案，您可以尝试以下解决方法：

1. 将数据链接/复制到图表下方的单元格（使用=Sheet1!A1 等公式）
2. 应用相同的条件格式
3. 隐藏值（使用自定义数字格式，如""，即空字符串文字（2 个双引号））
4. 使图表透明
5. 将单元格与图表对齐

---

更新：

如果条件格式仅对 2 个极端情况使用 2 种基色 (r1, g1, b1) 和 (r2, g2, b2)，则您可以尝试通过线性逼近每个 R、G、B 通道来计算颜色可以是

• min 和 max 值，例如：0 - 4 000
• min 和max percent，例如：10% - 90%
  （我相信你可以使用 % * [max_value - min_value] 得到实际值）
• min 和 max 百分位，例如：第 0 个百分位 - 第 100 个百分位

对于百分比/百分位选项，您首先需要将实际值转换为百分比/百分位值，然后如果value < min 或value > max 使用角颜色，否则：

r = r1 + (r2 - r1) * (value - min_value) / (max_value - min_value)
g = ...
b = ...

Answer 2

这会将单元格的图片复制到同一工作表上图表对象的左上角。请注意，图片链接到复制的单元格 - 如果值或格式颜色发生更改，它将更改为匹配。

Sub Tester()

    CopyLinkedPicToPlot ActiveSheet.Range("E4"), "Chart 2"

End Sub

Sub CopyLinkedPicToPlot(rngCopy As Range, chtName As String)

    Dim cht As ChartObject

    Set cht = ActiveSheet.ChartObjects(chtName)

    rngCopy.Copy
    With rngCopy.Parent.Pictures.Paste(Link:=True)
        .Top = cht.Top
        .Left = cht.Left
    End With

End Sub

编辑：我刚刚用一个相当小的 4x8 单元格/图表矩阵对此进行了测试，性能非常糟糕！不使用 Link:=True 粘贴可能会更好......

Answer 3

这不是特定于您的问题，但很容易修改以解决您的问题...

Sub CopyCondFill()
    Dim FromSheet As Object
    Dim ToSheet As Object
    Dim FromSheetName as String
    Dim ToSheetName as String
    Dim ToRange As Range
    Dim StrRange As String

    '''Sheet with formatting you want to copy
    FromSheetName = "YourSheetsName"
    Set FromSheet = Application.ThisWorkbook.Sheets(FromSheetName )
        '''Start of range within sheet you want to copy
        FromFirstRow = 3
        FromFirstCol = 2

    '''Sheet you want to copy formatting to
    ToSheetName = "YourSheetsName"
    Set ToSheet = Application.ThisWorkbook.Sheets(ToSheetName)
        '''range to copy formatting to
        ToFirstRow = 3
        ToFirstCol = 2
        '''NOTE: Adjust row/column to take lastrow/lastcol from or enter value manually
        ToLastRow = FromSheet.Cells(Rows.Count, 1).End(xlUp).Row
        ToLastCol = FromSheet.Cells(2, Columns.Count).End(xlToLeft).Column
        Set ToRange = ToSheet.Range(Cells(ToFirstRow, ToFirstCol), Cells(ToLastRow, ToLastCol))

        '''Apply formatting to range
        For Each cell In ToRange
            StrRange = cell.Address(0, 0)
            ToSheet.Range(StrRange).Offset(ToFirstRow - FromFirstRow, ToFirstCol - FromFirstCol).Interior.Color = _
                FromSheet.Range(StrRange).DisplayFormat.Interior.Color
        Next cell

End Sub

Answer 4

试试这个：

<Cell>.DisplayFormat.Interior.Color

这应该在 2010 年以后使用 Excel。

Answer 5

这对我有用，基于 JKirchartz 的回答

Sub copyBackgroundColors(source As Range, target As Range)
    target.Interior.color = source.DisplayFormat.Interior.color
End Sub

Answer 6

这是对您问题的部分回答。下表的第 1 列列出了 Excel 的标准 40 种颜色。第 2、3 和 4 列列出了每种颜色的红色、绿色和蓝色分量。因此，如果您希望单元格的字体为浅橙色：

Cell(Row, Column).Font.Color = RGB(255, 153, 0)

如果您尝试任何其他红绿组合，Excel 会将其匹配到这些标准颜色中最接近的一种，尽管 Excel 的“最接近”概念与我的不匹配。

如果您问题的其他部分得到解答，希望这会有所帮助。

Colour                Red  Green   Blue
Black                   0      0      0
Light orange          255    153      0
Lime                  153    204      0
Gold                  255    204      0
Bright green            0    255      0
Yellow                255    255      0
Grey 80%               51     51     51
Dark teal               0     51    102
Plum                  153     51    102
Sea green              51    153    102
Dark blue               0      0    128
Dark red              128      0      0
Violet                128      0    128
Teal                    0    128    128
Grey 50%              128    128    128
Grey 40%              150    150    150
Indigo                 51     51    153
Blue-grey             102    102    153
Tan                   255    204    153
Light yellow          255    255    153
Grey 25%              192    192    192
Aqua                   51    204    204
Red                   255      0      0
Rose                  255    153    204
Light green           204    255    204
Blue                    0      0    255
Pink                  255      0    255
Light blue             51    102    255
Lavender              204    153    255
Sky blue                0    204    255
Pale blue             153    204    255
Turquoise               0    255    255
Light turquoise       204    255    255
Dark green              0     51      0
White                 255    255    255
Olive green            51     51      0
Brown                 153     51      0
Orange                255    102      0
Green                   0    128      0
Dark yellow           128    128      0