Выделите каждый столбец по порядку в гистограмме 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