Views

Histats

Vitrine

VBA Excel - Animando os Minigráficos - Animate a Sparkline



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

O exemplo 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, 


Inline image 1

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...