✔ Programação GLOBAL®: VBA Excel Série - Animando os Minigráficos

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