Vba 在Excel 2007条形图中按顺序高亮显示每个条形图

我在Excel2007中有一个条形图。我想分别更改图表中每个条形图的格式，然后将其更改回原始格式。整体效果是使每个条看起来都是按顺序高亮显示的

---

有没有办法用VBA做到这一点？

这可能会让您开始：

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