在Excel Graph中设置系列名称会导致闪烁

我正在使用VBA创build一个Excel Spreadsheet图表，如下所示：

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函数快速连续激活数次，导致graphics在稳定之前闪烁几秒钟。

有谁知道这件事是什么，我该怎么办呢？

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

编辑：PortlandRunner的build议清除graphics重绘期间的问题，但它仍然存在，如果graphics在启动时可见。 另见这个 。

Answer 1

尝试在代码的开头插入Application.Calculation = xlCalculationManual ，并在代码的末尾添加Application.Calculation = xlCalculationAutomatic 。