VBA宏AddChart2运行时错误'438'跨设备异常咨询

嘿，这个问题我碰到过好多次，根源其实挺明确的：AddChart2是Excel 2016及以后版本才引入的方法，另一台机器大概率装的是Excel 2013或者更早的版本，这些旧版本根本不支持这个方法，所以才会弹出"对象不支持该属性或方法"的错误。

给你两个可行的解决方案，再附个代码优化的小建议：

方案1：修改代码兼容旧版本 #

直接把AddChart2替换成旧版本支持的AddChart方法，同时我帮你把代码里的Select操作也去掉了——依赖Select和ActiveChart的代码很容易因为意外操作出问题，用对象变量直接操作才是VBA的最佳实践。

优化后的完整代码：

Sub PlotAverageTemperature()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim sourceRange As Range
    
    ' 绑定当前工作表，避免依赖ActiveSheet的不确定性
    Set ws = ActiveSheet
    ' 明确数据源范围
    Set sourceRange = ws.Range("BO1", ws.Range("BO4").End(xlDown))
    
    ' 在BR4位置创建折线图（替代AddChart2）
    Set chartObj = ws.ChartObjects.Add(Left:=ws.Range("BR4").Left, _
                                      Top:=ws.Range("BR4").Top, _
                                      Width:=300, Height:=200)
    With chartObj.Chart
        .SetSourceData Source:=sourceRange
        .ChartType = xlLine
        ' 如果需要自动缩放，取消下面这行的注释
        '.AutoScaling = True
    End With
End Sub

方案2：升级目标机器的Excel版本 #

如果权限和软件许可允许的话，让另一台机器升级到Excel 2016或更高版本，这样就能直接用你原来的AddChart2代码了。不过这个方案灵活性不如代码兼容，毕竟不是所有机器都能随便升级软件。

额外提醒 #

尽量避免在VBA里用Select、ActiveSheet这类依赖"当前活动对象"的操作，一旦用户在宏运行时切换了工作表或者点击了其他地方，代码很容易崩溃。用对象变量直接绑定工作表、图表、单元格，代码会稳定得多。

内容的提问来源于stack exchange，提问作者Jimmy Jose