Excel VBA 2010：如何通过图表名称访问图表刻度且避免使用Select方法（解决运行时错误438）

我来帮你搞定这个438错误！你踩的坑其实是Excel VBA里嵌入图表和独立图表对象层级的常见误区，咱们一步步理清楚：

错误原因分析 #

• 你的第一段错误代码用了ActiveSheet.Charts(chart_name)：这个语法是用来引用独立的图表工作表的（就是单独占一个标签页的那种图表），但你的图表是嵌入在普通工作表里的，属于ChartObjects集合，所以这个引用完全不对，自然报错。
• 第二段错误代码里的.Charts是笔误：嵌入在工作表里的ChartObject对象，要访问真正的图表内容，得用.Chart属性，而不是.Charts（这个是针对独立图表工作表的集合）。

正确的无Select代码 #

推荐两种写法，都能完美避开Select：

写法一：简洁链式调用

Sub scale_chart()
    Dim chart_name As String
    chart_name = "Chart 3"
    ' 直接通过ChartObject的Chart属性拿到图表对象，再访问坐标轴
    With ActiveSheet.ChartObjects(chart_name).Chart.Axes(xlValue)
        .MaximumScale = 800000
    End With
End Sub

写法二：声明变量（可读性更强，适合复杂场景）

Sub scale_chart()
    Dim chartObj As ChartObject
    Dim targetChart As Chart
    Dim chart_name As String
    
    chart_name = "Chart 3"
    ' 先获取嵌入图表的容器对象
    Set chartObj = ActiveSheet.ChartObjects(chart_name)
    ' 从容器里拿到真正的图表对象
    Set targetChart = chartObj.Chart
    
    ' 设置刻度
    With targetChart.Axes(xlValue)
        .MaximumScale = 800000
    End With
End Sub

补充说明 #

如果你的图表是独立的图表工作表（不是嵌在普通工作表里），那你第一段代码的写法才是正确的，但从你最初能用ChartObjects的代码来看，显然是嵌入图表，所以上面的两种写法都能解决问题，完全不需要用Select方法。

内容的提问来源于stack exchange，提问作者Sanny Wind