在Excel 2007中按順序突出顯示每個條形圖條形圖

Question

我在Excel 2007中有一個條形圖。我想分別更改圖表中每個條形的格式，然後將其更改回原始格式。總體效果是使每個條形圖依次突出顯示。

有沒有辦法用VBA做到這一點？

Answer 1

這可能讓你開始：

Sub Tester() 

    Dim oCht As Excel.Chart, s As Series 
    Dim x As Integer, i As Integer 
    Dim oldColor As Long 

    Set oCht = ActiveSheet.ChartObjects("Chart 1").Chart 
    For x = 1 To oCht.SeriesCollection.Count 
     Set s = oCht.SeriesCollection(x) 
     For i = 1 To s.Points.Count 
      With s.Points(i).Interior 
       oldColor = .Color 
       .Color = vbRed 
       DoEvents 
       Application.Wait Now + TimeSerial(0, 0, 2) 
       .Color = oldColor 
       DoEvents 
      End With 
     Next i 
    Next x 

End Sub