使用VBA更改MS Access中的自定義顏色

我試圖更改訪問中的所有圖表（欄，餅圖，邊距，區域等）中的顏色主題，我想添加新的配色方案。我使用MS Access 2000，我想通過點擊圖表然後點擊工具 - >選項 - >顏色 - >圖表填充but2問題，用這種方法手動改變每種顏色：使用VBA更改MS Access中的自定義顏色

1。限制的顏色，以8
2.I數量需要爲每個圖表我有超過100個圖形

任何幫助理解

來源

2011-09-19 EvenPrime

予一次編輯列的顏色在圖表編程手動更改。我不確定哪個版本的訪問。它不再適用於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

來源

2011-10-03 17:34:01 Pedro

最後，我能得到它使用此代碼GraphA.SeriesCollection（I）.Interior.Color = RGB（50100100）工作，但現在它沒有顯示確切的顏色，它顯示了其他顏色比預期的顏色，任何想法？ – EvenPrime

我不知道如何設置RGB顏色。我記得還有這個問題，所以我簡單地使用了內部配色方案。看看這個[鏈接]（http://dmcritchie.mvps.org/excel/colors.htm）。這是excel 2000的調色板，我假設access 2000使用相同的。但它僅限於56種顏色。如果這個調色板可以做，你可以像我一樣指定索引來設置顏色。 – Pedro

我只是看了一遍我的代碼，發現我使用的代碼如下：Interior.color = eval（RGB（50，100，100）） – Pedro

使用VBA更改MS Access中的自定義顏色

回答

相關問題