0

我有一些 VBA 代码允许我在几个不同的图表上重新缩放轴。但是，我正在尝试调整该代码，以便我可以选择多个图表进行重新缩放，而无需复制代码。

我到目前为止的代码示例是这样的：

Sheets("Sheet1").ChartObjects("Chart 1.1").Activate
ActiveChart.Axes (xlValue)
With ActiveChart.Axes(xlValue)
  .MinimumScale = Sheets("Sheet2").Range("A1").Value
  .MaximumScale = Sheets("Shee2").Range("B1").Value
 End With

Sheets("Sheet1").ChartObjects("Chart 1.2").Activate
ActiveChart.Axes (xlValue)
With ActiveChart.Axes(xlValue)
   .MinimumScale = Sheets("Sheet2").Range("B1").Value
   .MaximumScale = Sheets("Sheet2").Range("B2").Value
End With

但是，我最终将拥有 50 个图表（图表 1.1 至 1.5，图表 2.1 至 2.5，...，图表 5.1 至图表 5.5）。我一直试图弄清楚我是否可以使用第一行代码做更多的事情，让我可以一次选择特定的图表，但到目前为止还没有成功。理想情况下，我希望这样的事情：

Sheets("Sheet1").ChartObjects("Chart 1.1", "Chart 2.1", "Chart 3.1", "Chart 4.1", "Chart 5.1").Activate

我的 VBA 编码技能目前包括我可以通过谷歌弄清楚的，所以任何建议都将不胜感激。谢谢。

4

0 回答 0