VBA Excel Série - Animando os Minigráficos - Animate a Sparkline

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Calendário Compacto para 2014

Sim, podemos animar nossos Minigráficos (Sparkline) usando o método ModifySourceData do objeto SparklineGroup para repetí-lo num intervalo de dados. 

O exemplo, no código abaixo tem 36 meses de dados e o animaremos por meio da exibição do primeiro ano de dados, através de cada mês subseqüente, até atingir o último mês com dados.

Um contador será utilizado para retardar a animação de modo que possamos vê-la com mais facilidade. Este exemplo requer um grupo de Sparkline que contenha três Sparkline no intervalo A2: A4 que representam dados no intervalo 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

        Let j = 1

        Do

            Let j = j + 1: DoEvents

        Loop Until j = 4000

    Next i

    

End Sub

Tags: Excel, VBA, Sparkline, minigráfico, animate, ModifySourceData, SparklineGroup,