避免激活在Excel VBA中的使用

Question

对Excel VBA来说很新鲜..。与这篇文章非常相似：Avoiding the use of Activate and Select when working with charts (Excel)，我试图避免使用Activate来对大型工作簿中的许多图表进行小的更改。我正在为大量图表执行此任务，因此我希望尽可能减少运行时间，并且听说select/activate函数会减慢宏的速度。

我的示例代码如下所示：

ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.FullSeriesCollection(1).XValues = "=Leb!$C$2:$G$2"

我试图用以下两行取代这两行，因为这对我来说是合乎逻辑的：

ActiveSheet.ChartObjects("Chart 3").FullSeriesCollection(1).XValues = "=Leb!$C$2:$G$2"

此代码在运行时会导致错误，因此我尝试使用上面提到的post所示的WITH格式：

With Worksheets("Chart").ChartObjects("Chart 3").Chart.XValues = "=Leb!$C$2:$G$2"
End With

这也会引发错误。

我知道我可能犯了一个小的语法错误，但是有人能提供任何关于我做错了什么的洞察力吗？(我以前从未使用过WITH函数，所以对它的一些一般见解也会很有帮助。)

提前谢谢。

Answer 1

快到了..。

With Worksheets("Chart").ChartObjects("Chart 3").Chart
    .SeriesCollection(1).XValues = "=Leb!$C$2:$G$2"
End With

XValues属于Series对象，而不是图表(引用上一个代码示例)。

编辑：

Dim arrCharts, cht
arrCharts = Array("Chart 3", "Chart 4", "Chart 5", "Chart 7")

For Each cht In arrCharts
    With Worksheets("Chart").ChartObjects(cht).Chart
        .SeriesCollection(1).XValues = "=Leb!$C$2:$G$2"
    End With
Next cht