使用VBA更改MS Access中的自定义颜色

Question

我试图更改访问中的所有图表（栏，饼图，边距，区域等）中的颜色主题，我想添加新的配色方案。 我使用MS Access 2000，我想通过点击图表然后点击工具 - >选项 - >颜色 - >图表填充but2问题，用这种方法手动改变每种颜色：

1。限制的颜色，以8
2.I数量需要为每个图表我有超过100个图形

任何帮助理解

Answer 1

予一次编辑列的颜色在图表编程手动更改。我不确定哪个版本的访问。它不再适用于access2003，所以它可能在access 2000中工作。

可以说你的图表被称为“OLEObject”。

您可以编辑这样的背景：

Me.OLEObject.Object.ActiveChart.PlotArea.Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=2, Degree:=0.8 

编辑的颜色，你的列文等/馅饼，你可以访问的SeriesCollection。

With Me.OLEObject.Object.ActiveChart.SeriesCollection(i) 
     .Name = "name" 
     .Values = "={" & 10 & "}" 
     .Interior.color = 2 
     .ApplyDataLabels ShowSeriesName:=True 

     With .DataLabels 

      .Font.Size = 10 
      .Orientation = xlUpward 
     End With 

     With .Fill 
      .OneColorGradient Style:=msoGradientHorizontal, Variant:=1, Degree:=0.4 
      .ForeColor.SchemeColor = 3 
     End With 

    End With 

您可以添加/删除列编程太：

 .SeriesCollection(3).delete 

     .SeriesCollection.NewSeries