Animated Hour Glass Chart
Charts and Visualization

Info-graphics: Animated Hour Glass Chart in Excel

Animated Hour Glass Chart has been designed to display the KPI metrics like – Service Level, Quality Score, and Productivity etc. Whenever the value of metric will be changes it will show an animation like below given image.

 Animated Hour Glass Chart

  

 We have put the below given code on Worksheet Change event to show the animation

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer

If Target.Address = "$B$2" Then

       For i = 0 To Int(Target.Value * 100)

       VBA.DoEvents

        ActiveSheet.Range("N1").Value = i / 100

    Next i

       ActiveSheet.Range("N1").Value = Target.Value

   End If

If Target.Address = "$B$3" Then

       For i = 0 To Int(Target.Value * 100)

    VBA.DoEvents

        ActiveSheet.Range("N2").Value = i / 100

    Next i

    ActiveSheet.Range("N2").Value = Target.Value

   End If

If Target.Address = "$B$4" Then

       For i = 0 To Int(Target.Value * 100)

    VBA.DoEvents

        ActiveSheet.Range("N3").Value = i / 100

    Next i

    ActiveSheet.Range("N3").Value = Target.Value

   End If

End Sub

 

Click here to download this Excel workbook.

 

Watch the Video tutorial of Animated Hour Glass Chart

PK
My Name is PK. I am founder of PK-AnExcelExpert.com. I have more than 10 years of experience in Data Visualization, Excel Automation and dashboard creation. Excel is my passion and I like to do always something innovative in Excel and share it with other people.
https://www.pk-anexcelexpert.com

Leave a Reply

Your email address will not be published. Required fields are marked *