尝试在 vba 中调整图表轴范围时出现错误 800004005

编程问答 2022-07-28

问题描述

我正在尝试使用 VBA 函数调整图表轴，但是我一直遇到错误 800004005。 当我用谷歌搜索错误时，我可以找到一个提到工作表安全性的页面，但我的工作簿中没有设置工作表安全性。我正在使用以下代码

Sub test()

Dim Cht As ChartObject
Dim ws As Worksheet
Dim min As Long
Dim max As Long

Set ws = ActiveWorkbook.Worksheets("Analyse")
Set Cht = ws.ChartObjects("Grafiek 1")


min = ws.Range("A14").Value
max = ws.Range("A7").Value

Cht.Chart.Axes(xlCategory,xlPrimary).MinimumScale = min
Cht.Chart.Axes(xlCategory,xlPrimary).MaximumScale = max

End Sub

有人知道如何解决这个问题吗？ 当我跳过代码时 min 和 max 都给出值（min = 90，max = 140）

错误出现在线

Cht.Chart.Axes(xlCategory,xlPrimary).MinimumScale = min

文字错误文本是（从荷兰语翻译过来的）： 执行过程中出现错误 -2147467259 (800004005)： 自动化错误 未指明的错误

eroor image

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelexcel-chartsvba