Question

我尝试使用Sheet1中的值更新不同工作表（Sheet2）中图表的最大比例和最小比例。但是，我得到了对象所需的错误。以下是代码：

Sub ChangeAxisScale()
Dim wsChart As Chart
Dim wsInput As Worksheet
Dim LastRow As Long


Set wsInput = ThisWorkbook.Sheets("Sheet1")

With Sheet2.ChartObjects("Chart").Chart.Axes(xlValue)
        LastRow = wsInput.Cells(wsInput.Rows.Count, "D").End(xlUp).Row
        .MaximumScale = wsInput.Cells(LastRow, 4).Value
        .MinimumScale = wsInput.Range("D2").Value
End With
End Sub

出现错误的行是With Sheet2.ChartObjects("Chart").Chart.Axes(xlValue)。我错误地引用了图表吗？

谢谢。

Answer 1

如果图表位于内部名称为＆＃34; Sheet2＆＃34;的图纸上，则代码可以正常运行。如果图表位于不同名称的工作表上，则代码将失败。

您可能希望使用Dim语句来声明并正确设置图表所在的工作表。

Sub ChangeAxisScale()
Dim wsChart As Chart ' you don't really need that, right?
Dim wsInput As Worksheet, wsChartSheet As Worksheet
Dim LastRow As Long


Set wsInput = ThisWorkbook.Sheets("Sheet1")
Set wsChartSheet = ThisWorkbook.Sheets("Sheet2")

With wsChartSheet.ChartObjects("Chart").Chart.Axes(xlValue)
        LastRow = wsInput.Cells(wsInput.Rows.Count, "D").End(xlUp).Row
        .MaximumScale = wsInput.Cells(LastRow, 4).Value
        .MinimumScale = wsInput.Range("D2").Value
End With
End Sub

Excel VBA - 图表引用不起作用

1 个答案: