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

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

vba ms-access charts

更改每个内部（直方图）图表的颜色vba访问,vba,ms-access,charts,Vba,Ms Access,Charts,我有一个图表（访问）类型[列]和几个内部（直方图），我想通过代码给每个内部一个不同的颜色此代码允许您使用相同的颜色更改所有内饰的颜色对象系列集合（1）.Interior.color=RGB（150150150）但是我想用不同的颜色来改变每个内饰我使用MSGraph.Chart.8类谢谢我找到了解决方案： With ChartObject For i = 1 To .SeriesCollection(1).Points.Count

我有一个图表（访问）类型[列]和几个内部（直方图），我想通过代码给每个内部一个不同的颜色

此代码允许您使用相同的颜色更改所有内饰的颜色对象系列集合（1）.Interior.color=RGB（150150150）

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

我使用MSGraph.Chart.8类谢谢

我找到了解决方案：

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

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