编辑图表而不选择工作表

Question

我正在尝试使用VBA对各种图表进行更改。我录制了一个有效的宏，但是当我尝试删除工作表选择以加快速度时，它只会出错。

录制的代码：

Sheets("Div").Select
ActiveSheet.ChartObjects("Divi").Activate
ActiveChart.Axes(xlValue).MinimumScale = Sheets("Control").Range("G112").Value

我的代码：

Worksheets("Div").ChartObjects("Divi").Axes(xlValue).MinimumScale = Sheets("Control").Range("G112").Value

如何修复它以便我不需要选择每个图表？

Answer 1

试试这个对我有用的代码

    With Worksheets("Div").ChartObjects("Divi").Chart.Axes(xlValue)
        .MaximumScale = Sheets("Control").Range("G112").Value
    End With

Answer 2

不确定您是否可以使代码正常工作。但您可以使用

禁用屏幕更新

Application.ScreenUpdating = False

这会加快它的速度。