如何用VBA改图表系列的RGB值？

353175704

请教老师，我想用VBA代码来改图表系列的RGB值，不会写代码，请老师帮助。
另外，sheet2里的图表，我使用了动态图表完成的，有个问题，我在家里的电脑可以全部类别显示出来，但在公司电脑里就出来两个类别，不知道那里有问题，烦请高手指点。谢谢！

Datous

遍历一遍就可以了，示例用的随机颜色，也可以声明一个数组循环

1. Sub 按钮2_Click()
   
2.     Dim srs As Series
   
3.     Dim cht As Chart
   
4.     Set cht = Worksheets("Sheet1").ChartObjects("图表 2").Chart
   
5.     For Each srs In cht.SeriesCollection
   
6.         srs.Format.Fill.ForeColor.RGB = Int(VBA.Rnd * 16000000)
   
7.     Next
   
8. End Sub

复制代码

353175704

Datous 发表于 2020-11-27 11:47
遍历一遍就可以了，示例用的随机颜色，也可以声明一个数组循环

老师有代码是对的，可惜我是小白，不会写遍历。能麻烦老师再指点一下吗？

Datous

353175704 发表于 2020-11-27 23:26
老师有代码是对的，可惜我是小白，不会写遍历。能麻烦老师再指点一下吗？

上面示例中 ForEach 就是遍历所有数据系列，按数据系列设为不同的颜色

你是想按 “数据点”着色吗？

353175704

Datous 发表于 2020-11-28 17:25
上面示例中 ForEach 就是遍历所有数据系列，按数据系列设为不同的颜色

你是想按 “数据点”着色吗？

是的，我图表里有多个图例 ，我想用VBA代码实现我指定的RGB值 ，我不会写代码。谢谢老师帮助！这种随机取数的颜色可能不是我想要的效果

353175704

我是想针对于每个颜色，用VBA代码来做指定的修改

353175704

一般是同色系的不同色值，深浅不同，比如蓝、白、灰，或者再加一点别的颜色，由VBA代码来定义现有的颜色改为新的RGB值 ，

Datous

353175704 发表于 2020-11-28 18:21
一般是同色系的不同色值，深浅不同，比如蓝、白、灰，或者再加一点别的颜色，由VBA代码来定义现有的颜色改 ...

颜色渐变有些麻烦，还是事先预设好颜色集靠谱
（光色系代码都得写很多）

确定好颜色，再修改数据点颜色就简单多了

353175704

Datous 发表于 2020-11-28 19:20
颜色渐变有些麻烦，还是事先预设好颜色集靠谱
（光色系代码都得写很多）

嗯，我在书上看到过。

353175704

353175704 发表于 2020-11-28 20:46
嗯，我在书上看到过。

sub  setmycolor()
  activeworkbook.colors(1)=rgb(0,56,115)
end sub
能定义系列值，然后我指定rgb的值 吗?不知道怎么定义这个系列的值 ，不会，请老师指点。