Animar un minigráfico

Puede animar un minigráfico mediante el método ModifySourceData del objeto SparklineGroup para recorrer en iteración un intervalo de datos. Este ejemplo toma 36 meses de datos y los anima mostrando el primer año de datos y, a continuación, recorre en iteración cada mes subsiguiente hasta que alcanza el último mes de datos. Un contador se usa para ralentizar la animación para que se pueda ver más fácilmente. En este ejemplo se requiere un grupo de minigráficos que contenga tres minigráficos en el intervalo A2:A4 que representen los datos del 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
        j = 1
        Do
            j = j + 1: DoEvents
        Loop Until j = 4000
    Next i
    
End Sub

Consulte también

Programación de objetos SparklineGroupcon minigráficos en Excel

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.