vba - Excel2007棒グラフで各棒を順番に強調表示します

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