EXCEL2007 <VBAで散布図の系列の追加>
標記の通り、VBAで散布図に新たに系列を追加したいのです。
たとえば現在、系列1があるとします。
そこで、横軸がA1:A10、縦軸がB1:B10のデータを追加するとします。
ActiveChart.SeriesCollection.Add Range("A1:B10")
しかし、このマクロだと縦軸がA1:A10の系列2と縦軸がB1:B10の系列3ができてしまします。
そこで、ためしに
ActiveChart.SeriesCollection.Add Range("A1") '仮に作る
With ActiveChart.SeriesCollection(2)
.XValues = Range("A1:A10")
.Values = Range("B1:B10")
End With
とすると、「実行時エラー'1004'; アプリケーション定義またはオブジェクト定義のエラーです。」となります。
いろいろ検索したのですが、これと言ったのがみつかりません。
意図するマクロはどのようなものになるのでしょうか。
ご教示お願いします。
No.2ベストアンサー
- 回答日時:
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
No.1
- 回答日時:
シート上グラフの場合で、
既に系列1があって、グラフを選択して標準モジュールの以下コードを実行すると
>ActiveChart.SeriesCollection.Add Range("A1") '仮に作る
>With ActiveChart.SeriesCollection(2)
> .XValues = Range("A1:A10")
> .Values = Range("B1:B10")
>End With
これでもうまく行きます。
どの行でエラーが出てますか?
以下も試してみてください。
Sub test()
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection.NewSeries
.XValues = Range("A1:A10")
.Values = Range("B1:B10")
End With
End Sub
すみません、埋め込みグラフではありませんでした。
埋め込みグラフのシートとデータのシートが同じであれば上記でうまくいくということですね。
ご回答どうもありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Excel(エクセル) Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range 3 2022/11/05 17:44
- Visual Basic(VBA) 別シートに順番で貼り付け 2 2023/04/13 19:53
- Excel(エクセル) 【VBA】A列にある連続したデータの1番下に文字列を入力したい 1 2023/01/28 04:40
- Visual Basic(VBA) いつもお世話になります 下記のコード実行すると エラーになります わかるかた教えてくれませんでしょう 6 2022/12/17 15:01
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) worksheets & rows メソッドは失敗しました。のエラー回避のやり方 1 2022/06/07 13:58
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの主軸と第2軸の0を合...
-
《エクセル2000》横棒グラフの...
-
エクセルで円グラフに引き出し...
-
スペック足りてるのにゲームが...
-
エクセルグラフについて(日付...
-
動画の再生がコマ送りのように...
-
パワーポイントグラフのラベル...
-
エクセルの散布図で新たに入力...
-
エクセルで需要と供給のグラフ...
-
Excel・積み上げグラフと折れ線...
-
エクセルのグラフ(2Y軸)の凡...
-
エクセルの散布図の点に名前を...
-
excelグラフでデータテーブルを...
-
階段グラフの元データの作り方...
-
エクセルのグラフで日付をとば...
-
Excel2007グラフの軸ラベルで、...
-
エクセルの複数の円グラフの円...
-
エクセルで作ったグラフの項目...
-
エクセル2010 縦軸の項目(二行...
-
パワーポイントにグラフを挿入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの主軸と第2軸の0を合...
-
エクセルで円グラフに引き出し...
-
excelグラフでデータテーブルを...
-
エクセルのグラフ作成時に、折...
-
Excelの凡例を自由に編集する方法
-
1.0未満のデータラベルを自動的...
-
円の16分割&色を塗りたい
-
Excelグラフを並べ替えた時の色...
-
EXCELグラフで「#N/A」が表示さ...
-
スペック足りてるのにゲームが...
-
パワーポイントにグラフを挿入...
-
パワーポイントグラフのラベル...
-
Excel2007グラフの軸ラベルで、...
-
EXCELで折れ線グラフを作る
-
エクセルで需要と供給のグラフ...
-
Excelのグラフについて教えてく...
-
Excel2010 散布図 でベタ色指定
-
エクセルの散布図で新たに入力...
-
エクセルの主軸と第2軸の0を合...
-
レーダーグラフを使って「指向...
おすすめ情報