下記プロシージャでグラフを書こうとしてますが、動作が安定しません。
マクロは別ワークブックに書き、データを収めたワークブックを開きC列とD列で散布図を描きます。埋め込みで描こうとしてます。
Sub test()
Dim xdata, ydata, DSname As String
Dim maxRow As Long
maxRow=Range("A6500").End(xlUp).Row
DSname=ActiveSheet.Name
xdata="C1:C" & maxRow
ydata="D1:D" & maxRow
Charts.Add
With ActiveChart
.ChartType=xlXYScatter
.SeriesCollection(1).XValues=Worksheets(DSname).Range(xdata) 'この行で動作不安定
.SeriesCollection(1).Values=Worksheets(DSname).Range(ydata)
.Location Where:=xlLocationAsObject, Name:=DSname
End With
With ActiveChart
.HasTitle=False
'以降は質問と関係ないので省略
End With
End Sub
注:コピー&ペーストでなく手打ちなので、スペルミスがあるかもしれません。
動作不安定と書いた行でストップします。
エラーメッセージ
実行時エラー '1004' 'SeriesCollection'メソッドは失敗しました
常にエラーになるのではなく、正常終了することもあります。不安定と書いたのはこのためです。
1 マクロ実行時に空欄のセルが選択されている場合:エラー
2 マクロ実行時に空欄でないセルが選択されている場合:正常終了
どうすれば安定するでしょうか?
No.2ベストアンサー
- 回答日時:
「マクロ実行時に空欄のセルが選択されている」→系列(Series)に操作すべきデータがない→データがない系列の操作はできない→エラーになる
たとえば、x-yでグラフデータとしては1セットなので、デフォルトではy=1がセットされている(={1})。これを削除する(新しい空のデータ系列にする)とx軸のセットをしようとしてもエラーになる、手動でやってもエラーになりますよね。
ということでしょう。
回避策
Chartの操作をする前に事前になにか1つでもデータを入れるコードを追加する。たとえば0を邪魔にならないところに入れるか、すぐ上書きされてしまうところに入れる。
というようなことか。
この回答への補足
色々試しましたが、charts.add時にどのセルが選択されてるかが大きく影響するようです。
他回答のSetSourceDataも試しましたが今度はセル空欄時に正常終了します。
回避として、どこかのセル値を変数に代入した後空欄にして、そのままグラフを描いた後セル値を元に戻すことにしました。こんなエラー、どこのURLにも書いてません。
ありがとうございます。
グラフを描く際にはxdataで列指定するのに、指定以前の初期値に影響されるということでしょうか。
意外でした。
No.4
- 回答日時:
#1です。
あくまで想像ですが、
.SeriesCollection.NewSeries
で新しいSeriesCollectionオブジェクトが生成され、これがインデックス1で参照できる訳ですが、
SeriesCollectionオブジェクトが無い状態でいきなり
.SeriesCollection(1).XValues =hoge
を実行すると、本来オブジェクトが無いというエラーになって然るべきですが、
エクセルが気を利かせて選択されているセルから生成してくれようとし、
選択セルが空だとエラーになるのではないでしょうか。
ご参考まで。
No.3
- 回答日時:
SetSourceDataでもいいかもしれません。
maxRow=Range("A6500").End(xlUp).Row
DSname=ActiveSheet.Name
xdata="C1:C" & maxRow
ydata="D1:D" & maxRow
Charts.Add
With ActiveChart
.ChartType=xlXYScatter
.SetSourceData Source:=Worksheets(DSname).Range(xdata, ydata), PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:=DSname
End With
あとご存知かもしれませんが
Charts.Add
でグラフシートが作成され、次に
.Location Where:=xlLocationAsObject, Name:=DSname
でワークシート上に移動しています。
これは無駄な作業になります。
.ChartObjects.Add(.Left, .Top, .Width, .Height)
とすれば最初からワークシート上に作成することが出来ます。
≪参考≫
グラフ操作関連のテクニック
http://moug.net/tech/exvba/0021.htm
この回答への補足
.Range(xdata, ydata)
セル範囲の指定ですが、並んだC列D列ならばこの方式で可能ですが、例えばX軸:C列、y軸:E列などの場合はどうやって指定するのでしょうか?
No.1
- 回答日時:
セルが空かどうかが影響してくる理由は分かりませんが、
.SeriesCollection.NewSeries
を付け加えると良い様です。ご参考まで。
Sub test()
Dim xdata, ydata, DSname As String
Dim maxRow As Long
maxRow = Range("A6500").End(xlUp).Row
DSname = ActiveSheet.Name
xdata = "C1:C" & maxRow
ydata = "D1:D" & maxRow
Charts.Add
With ActiveChart
.ChartType = xlXYScatter
'下記を加えると良い様です。
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = Worksheets(DSname).Range(xdata) 'この行で動作不安定
.SeriesCollection(1).Values = Worksheets(DSname).Range(ydata)
.Location Where:=xlLocationAsObject, Name:=DSname
End With
End Sub
ありがとうございます。
SeriesCollection.NewSeries マクロの自動記録時にはありましたが、不要かと思って削除した覚えがあります。確認します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ハマっている「お菓子」を教えて!
この世には、おいしいお菓子がありすぎて……。 次何を食べたらいいか迷っています。 みなさんが今、ハマっている「お菓子」を教えてください!
-
【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
2024年は「名探偵コナン30周年」「涼宮ハルヒ20周年」などを迎えますが、 あなたが「もうそんなに!?」と驚いた○○周年を教えてください。
-
ホテルを選ぶとき、これだけは譲れない条件TOP3は?
ホテルを探す時、予約サイトで希望条件の絞り込みができる便利な世の中。 あなたは宿泊先を決めるとき「これだけは譲れない」と思う条件TOP3を教えてください。
-
【お題】絵本のタイトル
【お題】 「ないた あかおに」「ねないこ だれだ」「はらぺこあおむし」みたいだけど、一体これどういう内容?と思った絵本のタイトルを教えて下さい
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
エクセルVBAで埋め込みグラフ(ChartObjects)のアクティブ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAがブレークモードになっ...
-
VBS実行時エラー オブジェクト...
-
エクセルエラー13型が一致しま...
-
実行時エラー48発生時のDLL特定...
-
VBSで変数の宣言はできないので...
-
ExcelVBA Range クラスの Page...
-
VBAのコードがエラーになっ...
-
ExcelVBAで、ユーザー定義型は...
-
DataGridView からの値取得に関...
-
VBAで、定数式が必要ですのエラ...
-
OLEDB.NETで接続できない
-
実行時エラー -'-2147417848
-
実行時エラー3001「引数が間違...
-
ACCESSのエラーで困っています
-
マクロについて教えてください...
-
【Excel VBA】マクロをボタンに...
-
なぜエラーになるのでしょうか...
-
INSERT INTOステートメント構文...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAがブレークモードになっ...
-
マクロについて教えてください...
-
実行時エラー3001「引数が間違...
-
ExcelVBA Range クラスの Page...
-
VBSで変数の宣言はできないので...
-
VBS実行時エラー オブジェクト...
-
EXCEL VBAマクロ中断でデバッグ...
-
実行時エラー -'-2147417848
-
【Excel VBA】マクロをボタンに...
-
VB6+SQL サーバー 2000 で 実行...
-
VBAでのエラー
-
プロシージャ名の取得
-
ADODB.Streamを使用してUTF-8を...
-
EXCEL/VBAで、自分のPCだけエラ...
-
ExcelVBAで、ユーザー定義型は...
-
VBで構造体を使うさ際の64k...
-
実行時エラー48発生時のDLL特定...
おすすめ情報