图表动画不再适用于 2016 VBA

Question

此代码在 Excel 2013 中完美运行，但不显示实时动画，仅显示代码运行完成后的最终草图。 请解决它。

Public Sub Plot_Line() ' {

Dim sh As Worksheet
Set sh = Worksheets("Line")
Dim firstRow    As Integer
Dim lastRow     As Integer
Dim firstColumn As Integer
Dim lastColumn  As Integer

firstRow = 2
lastRow = firstRow + 302 - 1

firstColumn = 1
Dim rows As Integer
rows = lastRow - firstRow + 1
Dim columns As Integer
columns = lastColumn - firstColumn + 1


Dim dataRange As Range
Set dataRange = Range(Cells(firstRow, firstColumn + 1), Cells(lastRow, firstColumn + 2))

Set ch1 = ActiveSheet.ChartObjects("Chart 1")
ch1.Activate

ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
Set ch = ActiveChart
DoEvents

For t = 3 To 302

With Range("C3:C" & t)
    .Formula = "=SIN(2*A3)"
    Application.Wait (Now + TimeValue("00:00:05"))
    DoEvents

 End With
Next t

End Sub

'

Answer 1

要在 Excel 2016 中制作体面的动画（由于其渲染引擎中的一些未记录的更改，这似乎比早期版本更难），首先手动创建图表会有所帮助。像这样的：

确保手动设置两个轴的最小值和最大值，而不是设置为自动。如果您现在删除数字但保留图表，则会显示一个空坐标系。

就代码而言，与其使用Application.Wait，不如用一块石头杀死两只鸟，并制作自己的延迟函数，其中包含DoEvents：

Option Explicit 'Your code could use this!

Sub Pause(t As Double)
    Dim start As Double
    start = Timer
    Do While Timer < start + t
        DoEvents
    Loop
End Sub

那么动画子就是这样的：

Public Sub Plot_Line()
    Dim i As Long
    Dim x As Double
    Dim y As Double

    Range("A2:B316").ClearContents
    For i = 2 To 316
        x = 0.02 * (i - 1)
        y = Sin(x) 'you could insert a formula if you prefer
        Range("A" & i).Value = x
        Range("B" & i).Value = y
        Pause 0.02
    Next i
End Sub

请注意，动画代码不直接与图表交互。它只是控制提供图表数据的范围。我的猜测是这条线

ActiveChart.ChartType = xlXYScatterSmoothNoMarkers

是代码中的罪魁祸首。不知道为什么，但是尝试在动画中修改图表对象本身似乎在 Excel 2016 中不起作用。