Excel 的 ColorIndex VBA 转换为 HTML 颜色

Question

我有工作代码可以根据条件格式单元格颜色更改图表颜色。

唯一的问题是，当它将颜色应用于图表时，它采用了仅限于 Excels 56 调色板的 ColorIndex 属性。然后我的图表看起来像一个孩子的生日派对，看起来不像十亿 RGB 颜色那么优雅。

有没有办法提取 RGB 颜色代码并将其应用于图表？我可以手动设置任何我想要的颜色，但我希望它全部自动化。

Sub ColorChartColumnsbyCellColor()

Dim xChart As Chart
Dim I As Long, xRows As Long
Dim xRg As Range, xCell As Range
On Error Resume Next
Set xChart = ActiveSheet.ChartObjects("Chart 2").Chart
If xChart Is Nothing Then Exit Sub

With xChart.SeriesCollection(1)
    Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    For I = 1 To xRows
        .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 4).DisplayFormat.Interior.ColorIndex)
    Next
End With
End Sub

Answer 1

替换这一行：

.Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 4).DisplayFormat.Interior.ColorIndex)

用这个：

.Points(I).Format.Fill.ForeColor.RGB = xRg.Offset(I - 1, 4).DisplayFormat.Interior.Color