我正在尝试使用特定工作表上活动单元格的单元格颜色创建图表。当使用下面提供的宏时,我发现只有一部分分配的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
您的问题来源于此行'设置将Vaddress = ActiveSheet.Range(斯普利特(斯普利特(.Formula, “”)( 1),“!”)(1))'。不幸的是,我不知道你想用这个嵌套分割做什么,所以我不知道如何帮助你。尝试“断言”该行,看看你是否得到预期的结果。 –
如果您试图从工作表中选取的任何颜色来自条件格式化,那么您需要查看'DisplayFormat.Interior.Color'这些颜色不会反映在'Cells(i).Interior.ColorIndex ' - 这将返回单元格的“基本/静止”颜色,而不应用任何CF更改 –