我来帮你分析这个问题并给出解决方案——这个1004错误在操作Excel图表时很常见，大概率是代码里的操作和当前图表类型不兼容，或者图表引用方式有问题，先不用急着换实现方式，咱们一步步排查修复。

问题背景 #

你有一个宏启用的Excel文件，能通过计算生成图表，想要用VBA实现一键保存归档，但代码抛出运行时错误'1004'：“指定的维度对当前图表类型无效”。你提供的代码片段如下：

Public Sub Archive() 
    Dim savePath As String 
    savePath = ActiveWorkbook.Sheets(1).Range("A220").Text 
    Dim saveDir 
    saveDir = "\Fileserver\common\departments...

注：原代码未完整粘贴，以下分析基于常见的图表归档场景。

错误原因分析 #

这个错误通常出现在三种场景：

• 图表类型与操作不匹配：比如给饼图/环形图设置XY坐标轴范围，这类图表本身没有坐标轴，强行设置就会触发维度无效的错误；或者尝试给折线图设置饼图特有的属性。
• 图表引用不明确：用ActiveChart引用图表时，如果当前没有激活的图表，或者激活的是其他对象，会导致代码操作的对象异常，间接触发错误。
• 路径/文件名问题：虽然错误提示是维度问题，但如果保存路径不存在、文件名包含特殊字符，也可能触发奇怪的1004错误（Excel的错误提示有时候会“张冠李戴”）。

修复方案与优化代码 #

先从排查和代码优化入手，试试下面的步骤：

1. 排查图表操作的兼容性

检查你代码中是否有针对图表的维度/属性设置（比如Chart.Axes(xlValue).MinimumScale = xxx这类代码），确认这些设置和你生成的图表类型匹配：

• 饼图、环形图、雷达图：没有XY坐标轴，不能设置坐标轴相关属性
• 折线图、柱状图、散点图：支持坐标轴设置，但要确保引用的坐标轴类型正确

2. 优化代码：明确引用对象+路径校验

下面是优化后的归档代码，解决了常见的坑：

Public Sub Archive()
    Dim savePath As String
    Dim saveDir As String
    Dim targetChart As Chart
    Dim sourceWs As Worksheet
    
    ' 1. 明确指定数据源工作表，避免ActiveSheet的不确定性
    Set sourceWs = ActiveWorkbook.Sheets(1)
    savePath = sourceWs.Range("A220").Text
    ' 补全完整的共享文件夹路径（注意开头是\\不是\）
    saveDir = "\\Fileserver\common\departments\你的归档子路径\"
    
    ' 2. 校验保存路径，不存在则自动创建
    If Dir(saveDir, vbDirectory) = "" Then
        ' 如果是多级目录，需要用MkDir递归创建，这里可以封装成函数
        MkDir saveDir
    End If
    
    ' 3. 明确引用目标图表（假设是嵌入式图表，名称为"生成的图表"，可在Excel中修改图表名称）
    On Error Resume Next
    Set targetChart = sourceWs.ChartObjects("生成的图表").Chart
    On Error GoTo 0
    
    ' 检查是否成功获取图表对象
    If targetChart Is Nothing Then
        MsgBox "未找到目标图表，请检查图表名称或位置！", vbExclamation
        Exit Sub
    End If
    
    ' 4. 归档操作二选一：
    ' 选项A：将图表导出为图片归档（适合仅需要图表展示的场景）
    targetChart.Export _
        Filename:=saveDir & savePath & ".png", _
        FilterName:="PNG"
    
    ' 选项B：保存整个工作簿副本归档（需要保留数据和宏的场景）
    ' ActiveWorkbook.SaveCopyAs _
    '     Filename:=saveDir & savePath & ".xlsm"
    
    MsgBox "图表归档完成！", vbInformation
End Sub

3. 如果还是报错，尝试更换实现方式

如果优化后还是出现1004错误，可能是动态生成的图表状态异常，可以试试这个替代方案：

• 先将生成的图表复制到一个新的空白工作表
• 对新工作表中的图表执行保存/导出操作
• 操作完成后删除临时工作表

示例代码片段：

' 复制图表到新工作表
Dim tempWs As Worksheet
Set tempWs = ActiveWorkbook.Sheets.Add
sourceWs.ChartObjects("生成的图表").Copy
tempWs.Paste
Set targetChart = tempWs.ChartObjects(1).Chart

' 执行归档操作...

' 删除临时工作表
Application.DisplayAlerts = False
tempWs.Delete
Application.DisplayAlerts = True

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