在Excel 2003中,當我將Series.Interior.ColorIndex更改爲我需要的值時,它沒有任何作用。它只有當我第一次手動改變顏色然後運行宏時纔有效果。顯然這會觸發一些更新機制。有沒有人對此有過解釋?有沒有辦法在圖表中以某種方式觸發它?確保顏色更改生效。更改.Interior.ColorIndex沒有效果
另外,當我遍歷代碼並觀看ColorIndex時,即使賦值後也不會改變。這是Excel中的許多錯誤之一嗎?
的代碼看起來是這樣的:
Sub DoStuff()
Dim j As Long
For j = 1 To ActiveChart.SeriesCollection.Count
With ActiveChart.SeriesCollection(j)
Select Case ActiveChart.SeriesCollection(j).Name
Case "Milk"
.Interior.ColorIndex = 4
Case "Cookies"
.Interior.ColorIndex = 28
Case "Honey"
.Interior.ColorIndex = 26
End Select
End With
Next j
End Sub
編輯:我用柱狀圖的工作。
我已經發布了我使用的示例excel數據(請參閱下面的答案)。你能提供類似的東西來說明你看到的問題嗎? – 2009-02-26 21:19:21