Author: Oscar Cronquist Article last updated on August 31, 2018

Animated bar chartv111

This chart animates one bar at a time. The "Clear chart" button clears all values. The "Animate" button starts the animation. Check out my other animated chart:An animated excel chart
If you think this animation is too slow, see the animation below.

VBA Code

Sub ClearChart()
Range("F3:F13") = ""
End Sub

Sub Animate()
Dim i As Single, j As Integer, k As Single
For j = 11 To 1 Step -1
    k = Range("C3:C13").Cells(j).Value
    For i = 40 To k
        Range("F3:F13").Cells(j) = i
        DoEvents
    Next i
Next j
End Sub

Explaining the chart animation

The bar chartยดs data source is cell range E2:F13. The macro begins with cell F13 and starts with value 40. Then it adds 1 to 40, up to the value in C13 (45). The next cell is F12, starts with 40 and goes up to 50, one by one and so on. See picture below. The chart shows these changes in the data source as an animation.

Animated bar chart_explain4

A faster animation

Animated bar chartv21111

VBA Code

Sub ClearChart()
Range("F3:F13") = ""
End Sub

Sub Animatev2()
Dim i As Single, j As Integer, k As Single, s As Single
For j = 11 To 1 Step -1
    k = Range("C3:C13").Cells(j).Value
    s = (k - 40) / 10
    For i = 40 To k Step s
        Range("F3:F13").Cells(j) = Round(i, 0)
        DoEvents
    Next i
Next j
End Sub
End Sub

Download excel *.xlsm file

An animated bar chart.xlsm

Related articles

An animated column chart

The drop down list lets you select a region. An event macro checks if there is a new drop down [โ€ฆ]

How to animate a line chart

Today I will show you how to build a basic animated line chart. The chart has a small trailing shadow effect. [โ€ฆ]

How to create a bar chart

The bar chart is simply a column chart rotated 90 degrees right, this makes it great if you have long [โ€ฆ]