运行时错误：1004更改图表公式时

我一直在研究一张表，我需要编辑图表的公式。

这一切工作正常，当我第一次写它，但现在我甚至不能让VBA读取公式，虽然它仍然可以读取名称。 我不知道可能会造成这种情况。

Sub test() Dim ser As Series [irrelevant code] With Worksheets("sheetX") For Each ser In .ChartObjects("Chart 2").Chart.SeriesCollection Debug.Print ser.Name 'prints the name without a problem Debug.Print ser.Formula 'Run time error: 1004 Application or object defined error [irrelevant code] 

– 图表有一个公式，我可以在Excel中编辑，但不能在VBA中编辑

– 当我剪切图表并将其粘贴回所有突然发生的事情时，我不能使用vba cut ，因为它会返回相同的错误。

Answer 1

你可以试试这个代码，看看它是否工作？ 只要确保在活动工作表上有一个图表：

 Option Explicit Public Sub TestMe() Dim ser As Series For Each ser In ActiveSheet.ChartObjects(1).Chart.SeriesCollection Debug.Print ser.Name Debug.Print ser.Formula Next ser End Sub 

作为一个猜测，可能sheetX的名称更改为其他名称或Chart 2的名称通过复制+粘贴更改。

Answer 2

我确定问题是由工作表的某些属性所引起的。

我把它们全部移到一张新的表格中，并把它定为一天。

谢谢您的帮助 ！