从Excel中的单元格中的值设置RGB颜色

Question

我有一个宏为我绘制一堆图表。 我想要做的是动态更改color的{​​{1}}。我使用Data series颜色palete和函数RGB。 当我直接使用.ForeColor.RGB时 - 一切正常。但是当我尝试从.ForeColor.RGB = RGB(88, 88, 88) color中抓取cell时，我收到了错误.ForeColor.RGB = Sheets(1).Cells(1, 1)。 在Type missmatch我有价值：Cell(1,1)。

如何从RGB(0, 0, 0)选择color的{​​{1}}？

下面的宏和Excel窗口。

Data series

Answer 1

您无法将函数名称作为String值传递。 RGB()是Function

试试这个。这将取3个不同单元格中的值，例如D4，E4和F4。

.ForeColor.RGB = RGB( _
                     Sheets(1).Cells(4, 4), _
                     Sheets(1).Cells(4, 5), _
                     Sheets(1).Cells(4, 6) _
                     )

Answer 2

试试这个：

'/* have to add this line */
ret = Split(Replace(Replace(Sheets(1).Cells(1, 1), "RGB(", ""), ")", ""), ",")
.ForeColor.RGB = RGB(ret(0),ret(1),ret(2))