求助：Excel VBA中ChartObjects.Add方法突然失效问题

问题详情 #

原本正常运行的ChartObjects.Add方法突然无法使用，同事电脑可正常执行相同代码。测试代码及对应报错如下：

位置参数版本代码 #

Sub test()
    Dim chart1 As ChartObject
    Set chart1 = Worksheets(1).ChartObjects.Add(300, 300, 300, 300)
End Sub

报错：Run-time error '-2147467259 (80004005)': Method 'Add' of object 'ChartObjects' Failed

命名参数版本代码 #

Sub test()
    Dim chart1 As ChartObject
    Set chart1 = Worksheets(1).ChartObjects.Add(Left:=300, Top:=300, Width:=300, Height:=300)
End Sub

报错：Run-time error '-2147467259 (80004005)': Automation error Unspecified error

已排查操作：

• 重新登录Office
• 卸载重装Office
• 确认Excel参数、加载项与同事完全一致
• 确认工作表和文件未受保护

可能的解决方案 #

• 检查系统区域/语言设置
  部分案例中，系统区域格式（如数字、日期格式）与Office组件不兼容会触发此类自动化错误。可临时将系统区域设置改为英文（美国），重启电脑后测试代码，之后再改回原设置。

• 修复Office注册表权限
  打开注册表编辑器（运行regedit），定位到HKEY_CLASSES_ROOT\CLSID\{00020800-0000-0000-C000-000000000046}，右键选择「权限」，确保当前用户拥有「完全控制」权限。修改后重启Excel测试。

• 禁用硬件图形加速
  打开Excel选项 → 高级 → 显示，勾选「禁用硬件图形加速」，重启Excel后重试代码。部分显卡驱动与Office的图表渲染模块冲突会导致创建失败。

• 创建新Windows用户配置文件
  Windows用户配置文件损坏可能影响Office组件的正常运行。创建新的本地用户账户，登录后打开Excel测试代码，若正常则说明原配置文件存在问题，可迁移数据后使用新账户。

• 尝试替代的图表创建方法
  绕过ChartObjects.Add，改用Shapes.AddChart方法测试是否可行：

  Sub testAlternative()
      Dim chartShape As Shape
      Set chartShape = Worksheets(1).Shapes.AddChart(Left:=300, Top:=300, Width:=300, Height:=300)
      Dim chartObj As ChartObject
      Set chartObj = chartShape.Chart.Parent
  End Sub
  

  若此方法有效，可暂时作为替代，同时继续排查原方法失效的根源。

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