更改每个内部（直方图）图表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是一个包含颜色列表

的表