ボタンを押すとグラフに新規系統の折れ線を追加するというVBAを書きたい

EXCELのシートに既に置いてあるグラフにデータ入力後にボタンを
押すと入力したデータを元にグラフに新たな系列を追加するという
VBAを組みたいと考えています

上記の一連の操作を”マクロを記録する”でマクロのコードを作成

EXCEL
1ActiveChart.SeriesCollection.NewSeries
2ActiveChart.FullSeriesCollection(7).Name = "=""サンプル"""
3ActiveChart.FullSeriesCollection(7).XValues = "='肥満度曲線'!$C$4:$M$4"
4ActiveChart.FullSeriesCollection(7).Values = "='肥満度曲線'!$C$3:$M$3"

そのコードをまんまボタン押下時の動作として貼り付けたのですが

実行時エラー'91'
オブジェクト変数またはWithブロック変数が設定されていません

と表示され動作が止まりました

アクティブなチャート上で操作してるのに何故にエラーが
発生するのかが分かりません、、
どなたかに御教授願いたく書き込ませて頂きました

先ずは正常動作が目標なのですがコードで今、"７"　と
なっている部分をグラフが持っている”今現在の系列数”＋１として
動的に設定したいとも考えております

参考画像として以下に画像を投稿しましたので
参考にして頂ければと思います

EXCELの画像

以上どうぞ宜しく御願い致します

行動規範の内容に同意します

回答1件

ベストアンサー

ボタンを押した時にボタンにフォーカスが移るから、とか？

コードの始めに以下を記述、

ActiveSheet.ChartObjects(1).Select '1かどうかは知らないけど

若しくは、
ActiveXコントロールのボタンでなく、フォームコントロールのボタンを使用してみて下さい。

投稿2018/12/18 05:37

torisan

総合スコア678

harivote

2018/12/18 06:54

ありがとうございます上記のコードを記述したら正常に実行されましたただコメントに”１かどうか知らないけど”と書いてある通り今回はINDEXが偶然というか１つしか置いてないので１でしたが INDEXが何なのか分かる方法は無いのかと調べたら有りました https://www.relief.jp/docs/excel-vba-index-chartobject-class.html 有りましたが ActiveChart.Parent.Index を書くとボタン押下時にグラフのINDEXを取得しようとしているのでまたエラーになってしまいます、、グラフのINDEXを確実に知る方法、もしくはグラフのオブジェクト名を知る方法は有るのでしょうか

torisan

2018/12/18 07:33

Indexを知るためにIndexを知りたい、みたいな話になっていますが、アクティブシート上にグラフが一つしかなければ何番目にグラフを作ろうとIndexは1になり、以下作成順で連番になるはずです。テキトーにIndexを指定して試すのが、一番手っ取り早いかと。グラフの名前は、ActiveChart.Parent.Name で取得できます。

harivote

2018/12/18 08:11

ありがとうございます１つしか無いなら１に設定しておけば間違いないんですねグラフの名前の取得方法も教えて頂きありがとう御座いますこれまで頂いた情報で無事、作れ上司に報告しましたその結果、６本のグラフは固定で入力作成済みが前提で新規で入力したデータを７本目のグラフと比較するという仕様でしたなので新規で入力したデータは７本目固定で有りボタンを押して作成するという操作も不要だとの事でしたよく話を聞いとけという話で最後の仕様に基づくソモソモの操作方法のドンデン返しは不要だったかもしれませんが今回の学習内容は私にとっては良い勉強になりました最後まで付き合って下さった　torisan様ありがとう御座いました

行動規範の内容に同意します