Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


35586 / 76732 ←次へ | 前へ→

【46343】Re:グラフの追加
質問  oda  - 07/1/31(水) 16:40 -

引用なし
パスワード
   ▼Kein さん:
ありがとうございます。ループの部分は動作しました

Dim ThisSheet_Name As String
  Dim a As Long
  For a = 1 To 5
   ActiveChart.SeriesCollection.NewSeries・・1.
   With ActiveChart.SeriesCollection(a)
    .ChartType = xlLine
    .XValues = Range(*)
    .Values = Range(*)
    .Name = Range()
   End With
  Next a

これに例えば
 Dim nameCell As Range
 Set nameCell = Application.InputBox(Prompt:="y軸の項目名があるセルを選択してください。", Default:="A1", Type:=8)
 nameCell.Select
k = nameCell.Address
こんな感じにグラフの系列になるDataを取得させ引数化させ、最終的に(*)の部分
に代入させるのですが、1順めが終わったところで1.の部分がエラーになり停止して
しまいます。新しくもう1枚のグラフを書くようにすると、1順目で1枚2順目で2枚・・・
と動作するのですが・・・。何か命令が足りないのでしょうか。

2 hits

【46336】グラフの追加 oda 07/1/31(水) 11:19 質問
【46338】Re:グラフの追加 Kein 07/1/31(水) 11:43 回答
【46343】Re:グラフの追加 oda 07/1/31(水) 16:40 質問
【46352】Re:グラフの追加 Kein 07/1/31(水) 17:18 発言
【46359】Re:グラフの追加 マクラー 07/1/31(水) 19:18 発言

35586 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free