1

我正在使用 VBA 创建一个 Excel 电子表格图，如下所示：-

Private Sub Chart_Calculate()

    Title$ = Range("charttitle")
    ActiveChart.Axes(xlCategory).Select

    With ActiveChart.Axes(xlCategory)
        .MinimumScale = 0
        .MaximumScale = 300
        .MinorUnit = 10
        .MajorUnit = 50
        .Crosses = xlCustom
        .CrossesAt = 0
        .ReversePlotOrder = True
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With

End Sub

然后我尝试设置系列名称，如下所示：-

ActiveChart.SeriesCollection(1).Name = CStr(some_value) & " Some Text"

当我将这行代码添加到 sub 中时，它会导致 Chart_Calculate 函数快速连续多次激活，导致图形在稳定前闪烁几秒钟。

有谁知道这是怎么回事，我应该怎么做？

（这是在 Windows XP 上运行的 Excel 2003。）

编辑：PortlandRunner 的建议在图形重绘期间清除了问题，但如果图形在启动时可见，它仍然存在。另请参阅此。

4

1 回答 1

1

尝试Application.Calculation = xlCalculationManual在代码的开头和代码Application.Calculation = xlCalculationAutomatic的末尾/附近插入。

于 2013-10-02T14:36:38.147 回答