Views

Histats

Vitrine

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






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, 




Inline image 1

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias