如何使用数组对在 VBA 中创建的图形进行动画处理

Question

我编写了一个代码，它使用数组更新 vba 中的散点图。我的目标是在 excel 之外的 vba 中做所有事情。我确实通过单击一个按钮从 excel 启动程序。我能够以给定的时间间隔更改和更新图表。但是我看不到图表的演变，即在 VBA 脚本完成之前我看不到图表。如何在程序运行时使图表保持活跃。我的最终目标是每 15 秒从网站上抓取一次数据，进行一些计算并在图表中显示它是如何演变的。

Sub test3()
Dim C As Chart
Dim s As Series
Dim myData, A, B, D As Variant
ReDim A(50, 1), B(50, 1), D(50, 1)
Set C = ActiveSheet.Shapes.AddChart.Chart
With C
    Set s = C.SeriesCollection.NewSeries
    Set v = C.SeriesCollection.NewSeries
    C.ChartType = xlXYScatterLines
End With
x = Timer()
xxx = x
While xx - x < 30
    xx = Timer()
    If xx - xxx > 2 Then
        i = i + 1
        A(i, 1) = 0.6 * i
        B(i, 1) = xx - x
        D(i, 1) = i ^ 0.5
        myData = A '
        myData1 = B '
        myData2 = D
    With C
        Set s = C.SeriesCollection(1)
        s.XValues = myData1
        s.Values = myData
        Set v = C.SeriesCollection(2)
        v.XValues = myData1
        v.Values = myData2
    End With
    xxx = Timer()
    End If
Wend
End Sub

Answer 1

1. 首先，最好正确声明所有使用的变量：

Dim C As Chart
Dim s As Series, v As Series, x As Double, xx As Double, xxx As Double
Dim myData, myData1, myData2, A, B, D As Variant, i As Long

请注意myData, myData1, myData2, A, B 属于Variant 类型，因为如果您没有指定任何关于该类型的内容，Excel 就会这样做。不是因为枚举以D As Variant 结尾。我的意思是，在下一个示例声明中

Dim x, y, z As Long

只有 z 是 Long 类型。 x 和 y 是 'Variant` 类型...

1. 然后，在xx = Timer()之后插入DoEvents：

'...
'your code...
    xx = Timer()
    DoEvents
'your code...
'...