按单元格颜色错误的颜色图表列

Question

我正在尝试使用特定工作表上活动单元格中的单元格颜色创建图表。使用下面提供的宏时，我发现只有一些分配的单元格 RGB 颜色代码与图表匹配。我不知道为什么有些颜色会匹配而有些不匹配。当我手动输入颜色代码时，图表中会显示正确的颜色。我是否在此宏中遗漏了什么或需要采取的额外步骤？

我在这个项目中使用 Excel 2016。

Sub ColorChartColumnsbyCellColor()
With Sheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1)
Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
For i = 1 To vAddress.Cells.Count
.Points(i).Format.Fill.ForeColor.RGB = 
ThisWorkbook.Colors(vAddress.Cells(i).Interior.ColorIndex)
Next i
End With
End Sub

Answer 1

您正在为 RGB 属性分配颜色索引。颜色索引与红绿蓝无关。此外，@Tim William 有一个观点：条件格式可能会在您所做的事情中发挥作用。

试试这个代码，它将 Color 属性分配给 RGB 属性：

Sub ColorChartColumnsbyCellColor()
    With Sheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1)
        Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))

        For i = 1 To vAddress.Cells.Count
            'Comment the line below and uncomment the next one to take conditional formatting into account.
            .Points(i).Format.Fill.ForeColor.RGB = vAddress.Cells(i).Interior.Color
            '.Points(i).Format.Fill.ForeColor.RGB = vAddress.Cells(i).DisplayFormat.Interior.Color
        Next i
    End With
End Sub