如何刷新工作表上的一个对象，而在Excel VBA上冻结其余对象

我对VBA相当陌生。我已经创建了一个从单个单元格复制的资源，并创建了一个由n个结果组成的字符串。同时，它在结果的右侧创建一个图形。当结果显示在页面视图下方时，工作表会来回跳转，图形随之显示。是否有一种方法可以使用VBA使整个工作表保持静止（不可见刷新），同时对每个结果刷新图形？非常感谢任何人的帮助。

无需在此处选择任何内容：

For a = 1 To Range("n").Value
 'Copying Crossed to Results
 Range("D18").Copy
 Cells(a + 16, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False 
' Creates Needle Drop Graph 
'Delete Old Chart 
On Error Resume Next
 ActiveSheet.ChartObjects("PinDrop").Delete
On Error Goto 0
 'Create Chart 
With ActiveSheet.Shapes.AddChart.Chart
   .ChartType = xlXYScatter 
   .Parent.Name = "PinDrop"
end with

---

我建议你把代码贴出来。床单不需要移动。你好，谢谢联系。这是代码：对于a=1到范围（“n”）。值“复制到交叉结果范围（“D18”）。选择选择。复制单元格（a+16，2）。选择选择。粘贴特殊粘贴：=xlPasteValues，操作：=xlNone，SkipBlanks:=False，转置：=False“创建针形下降图”在出错时删除旧图表继续下一个ActiveSheet.ChartObjects（“PinDrop”）。选择选项。删除“创建图表ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType=xlxyStrict ActiveChart.Parent.Name=“PinDrop”问题是，它不断返回以复制结果单元格（D18），然后跳到最后一个结果。这会导致屏幕抖动，图形在页面上向下移动。