Excel 2007 <VBAでグラフの操作>

質問

Excel 2007 <VBAでグラフの操作>

現在すでにあるグラフを修正しています。
下記マクロでは「各グラフに系列が2つあり、その1つ目を削除して残る1つのデータ範囲（X軸の値)を再設定する」という内容です。

下記マクロではFor構文冒頭のSet～の行で、
「実行時エラー '1004'：　'Cells'メソッドは失敗しました:'_Global'オブジェクト」
とのエラーが出ます。
このエラーについて検索してみたのですが、これといったものが見つからなかったので、このマクロでおかしなところがあれば直接指摘していただけないでしょうか。

よろしくお願いします。

Private Sub Test_Arrange()
　　Dim MyRng As Range
　　Dim R As Integer
　　Dim n As Integer
　　Dim i As Integer

　　n = 10
　　R = Sheets("Sheet1").Range("A1").End(xlDown).Row

　　For i = 1 To n
　　　　Set MyRng = Sheets("Sheet1").Range(Cells(2, 2 * n + 3), Cells(R, 2 * n + 3))
　　　　Charts(i).SeriesCollection(1).Delete
　　　　Charts(i).SeriesCollection(1).XValues = MyRng
　　Next i
End Sub

回答No.1

xls88 · ベストアンサー

CellsにもSheets("Sheet1")をかけてみてください。

With Sheets("Sheet1")
Set MyRng = .Range(.Cells(2, 2 * n + 3), .Cells(R, 2 * n + 3))
End With

あと
XValuesはX軸（項目軸）データになります。
Y軸（数値軸）データは、Valuesです。
大丈夫ですか？

お礼

ご回答ありがとうございます。
まず、追加の回答に関しては、投稿後に気付きましたが、単純ミスです。
（ネット公開用にいろいろ修正したため、オリジナルマクロと多少ちがっています）

今手元にファイルがないのですが、「CellsにもSheetsを追記する」でできたました！
さっきは、あるグラフシート上でマクロを実行していてエラーになっていたのですね。

あと
最後のご指摘についてですが、今回のマクロがやらんとしていることは、
　・各グラフに系列が２つある
　・系列１は本来ならば横軸にしたいものが系列１として縦軸になっている
　・系列２は上で言う系列１を横軸にしたときの縦軸の値である
　・そこで、系列１を消して系列２のみを残し、系列２の横軸に系列１の縦軸の値を適用する
という内容です。

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

回答No.3

xls88

閉じられないのは未だ問題があるのですか？
問題があるのなら遠慮なく捕捉で質問してください。

コードを提示される場合は加工せずに現状のままで提示してください。

回答No.2

xls88

追加です。
訂正前のコードで説明しますが

n = 10
で、Chartsが10個あることになっています。
ところが
Set MyRng = Sheets("Sheet1").Range(Cells(2, 2 * n + 3), Cells(R, 2 * n + 3))
ではデータ範囲が固定になっています。
Charts(i).SeriesCollection(1).XValues = MyRng
で、Charts(i)で対象グラフシートをずらしていますが、同じデータ範囲がセットされます。
同じグラフシートを10個作るのですか？