vba - 更改每个内部（直方图）图表 vba 访问的颜色

Question

我有一个带有多个内部（直方图）的图表（访问）类型 [列] 我想通过代码为每个内部赋予不同的颜色

此代码允许您使用相同颜色更改所有内部的颜色 Obj.seriescollection(1).Interior.color = RGB(150, 150, 150)

但我想用不同的颜色改变每个内饰

我使用类 MSGraph.Chart.8 谢谢

Answer 1

我找到了解决方案：

With ChartObject        
        For i = 1 To .SeriesCollection(1).Points.Count
            .SeriesCollection(1).Points(i).Interior.Color = ClientColor(i)
        Next i        
 End With

ClientColor 是一个包含颜色列表的表格