実行時エラー：グラフ式を変更すると1004

Question

グラフの式を編集する必要があるシート上で作業しています。

最初に書きましたが、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] 

-theチャートは、すべての突然のを、私はcutを使用することはできません動作します私はExcelで編集ではなく、VBA

で、私はチャートをカット-whenとバックのすべてで、それを貼り付けることができます式を有しそれは同じエラーを返すためです。

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の名前に変更されます：単にあなたがアクティブなシート上の1つのグラフを持っていることを確認してください。

Answer 2

問題は、チャートがどこにあるワークシートのいくつかのプロパティによって引き起こされたことが確かです。

私はそれをすべて新しいシートに移動して1日と呼んで固定しました。

ありがとうございました！