Este artículo se tradujo automáticamente. Para ver el artículo en inglés, active la casilla Inglés. Además, puede mostrar el texto en inglés en una ventana emergente si mueve el puntero del mouse sobre el texto.
Traducción
Inglés

Animar un minigráfico

Office 2013 and later

Puede animar un minigráfico mediante el método ModifySourceData del objeto SparklineGroup para recorrer en iteración un rango de datos. En este ejemplo se toma 36 meses a partir de datos y anima mostrando el primer año de datos, a continuación, se recorre en iteración cada mes posterior hasta que alcanza el último mes de datos. Se usa un contador para ralentizar la animación para que puedan verse más fácilmente. En este ejemplo se requiere un grupo de minigráficos que contiene tres minigráficos del rango a2: a4 que representan los datos en el rango 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
        j = 1
        Do
            j = j + 1: DoEvents
        Loop Until j = 4000
    Next i
    
End Sub
Mostrar: