質問: range("b1:b10") end with とすると、「実行時エラー'1004'; アプリケーション定義またはオブジェクト定義のエラーです。」となります。 いろいろ検索したのですが、これと言ったのがみつかりません。 意図するマクロはどのようなものになるのでしょうか。 ご教示お願いします。
回答: newseriesメソッドで系列が追加出来ます。 activechartがグラフシートならセルは持っていません。 よって .xvalues = range("a1:a10") は成立しません。 元データがあるシート名を明記してください。 ≪例1≫ with activechart.seriescollection.newseries .xvalues = sheets("sheet1").range("a1:a10") .values = sheets("sheet1").range("b1:b10") end with ≪例2≫ with charts("graph1").seriescollection.newseries .xvalues = sheets("sheet1").range("a1:a10") .values = sheets("sheet1").range("b1:b10") end with ≪例3≫ with charts(1).seriescollection.newseries .xvalues = sheets("sheet1").range("a1:a10") .values = sheets("sheet1").range("b1:b10") end with