Gráfico animado (con movimiento) con scrollbar o barra de desplazamiento

[EMIRO ERAZO]

Código Hoja: Dinámico (donde está la gráfica)

Option Explicit

Private Sub ScrollBar1_Change()

ScrollBar1.Max = Range("chrtMaxScrollBar")

'para definir el valor máximo de la barra de desplazamiento. Para hacerlo programamos elevento ScrollBar1_Change()

End Sub

Código Módulo 1

Option Explicit

Sub animate_Chart()

Dim iX As Integer, Delay As Single, Start As Single

'fijar valores del eje Y del grafico

Call fix_Y_Values

Range("chrtCounter") = 0

For iX = 0 To Range("chrtMaxScrollBar")

Range("chrtCounter") = Range("chrtCounter") + 1

Delay = 0.1

Start = Timer

Do While Timer < Start + Delay

DoEvents

Loop

Next iX

End Sub

Sub backTo0()

Range("chrtCounter") = 0

End Sub

Private Sub fix_Y_Values()

ActiveSheet.ChartObjects("chrtUSDBRL").Activate

With ActiveChart

.Axes(xlValue).MinimumScale = Range("chrtXmin")

.Axes(xlValue).MaximumScale = Range("chrtXmax")

End With

Range("A1").Select

End Sub

Gráfico Animado con ScrollBar.rar

[EMIRO ERAZO]

Animar gráfico: pulsando Botón >>

Iniciar de nuevo: pulsando Botón <<