How to: Animate a Sparkline
You can animate a sparkline by using the ModifySourceData method of the SparklineGroup object to iterate over a range of data. This example takes 36 months of data and animates it by displaying the first year of data, then iterates through each subsequent month until it reaches the last month of data. A counter is used to slow the animation so it can be viewed more easily. This example requires a sparkline group that contains three sparklines in the range A2:A4 that represent data in the range B2:AK4.
Sub SparkAnimation()
' The group of sparklines to animate
Dim oSparkGroup As SparklineGroup
'variables for the loop
Dim i As Integer, j As Integer
' Set up the sparkline group variable
Set oSparkGroup = Sheet1.Range("A2").SparklineGroups(1)
' Set the data source to the first year of data
oSparkGroup.ModifySourceData "B2:M4"
' Loop through the data points for the subsequent two years
For i = 1 To 24
' Move the reference for the sparkline group over one cell
oSparkGroup.ModifySourceData Range(oSparkGroup.SourceData).Offset(, 1).Address
' Slow the animation
j = 1
Do
j = j + 1: DoEvents
Loop Until j = 4000
Next i
End Sub