Animieren einer Sparkline

Mit der ModifySourceData-Methode des SparklineGroup-Objekts können Sie eine Sparkline animieren, sodass ein Datenbereich durchlaufen wird. In diesem Beispiel werden Daten aus 36  Monaten animiert, indem zunächst Daten aus dem ersten Jahr angezeigt werden und dann die nachfolgenden Monate durchlaufen werden, bis Daten für den letzten Monat erreicht sind. Es wird ein Zähler verwendet, um die Animation zu verlangsamen, damit sie besser sichtbar ist. Dieses Beispiel erfordert eine Gruppe von Sparkline mit drei Sparklines im Bereich A2: A4, die Daten im Bereich B2:AK4 darstellen.

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
        j = 1
        Do
            j = j + 1: DoEvents
        Loop Until j = 4000
    Next i
    
End Sub

Siehe auch

SparklineGroup-Objektprogrammierungmit Sparklines in Excel

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.