Excel VBA質問箱 IV

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

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


43946 / 76732 ←次へ | 前へ→

【37812】散布図に空白がある場合
質問  anct  - 06/5/19(金) 9:51 -

引用なし
パスワード
   散布図に空白がある場合について質問します。

「あるセルの範囲で散布図を描き,その後そのセルに値を入れる」という処理を目指しています。初めセルは空白の状態です。

今,下に示すようなプログラムで散布図のY軸,X軸の最小値と最大値を固定し,
セルの範囲をXの値がRange("A1:A20"),Yの値をRange("B1:B20")としています。
しかし,これを実行するとセルが空白だと"SeriesクラスのValuesクラスを設定できません"というエラーが出ます。このようなときの対処法を教えてください。よろしくお願いします。

Sub ch()

  Dim graph As Object
  Dim se As Series

  Set graph = Worksheets("sheet1").ChartObjects.Add(0, 0, 300, 200)
  graph.Chart.ChartType = xlXYScatterLinesNoMarkers
  Set se = graph.Chart.SeriesCollection.NewSeries
  se.XValues = Worksheets("sheet1").Range("A1:A20")
  se.Values = Worksheets("sheet1").Range("B1:B20")
  
  graph.Name = "graph"
  
  Worksheets("sheet1").ChartObjects("graph").Chart.Axes(xlValue).MinimumScale = 0
  Worksheets("sheet1").ChartObjects("graph").Chart.Axes(xlValue).MaximumScale = 500
  Worksheets("sheet1").Chart.Axes(xlCategory).MinimumScale = 0
  Worksheets("sheet1").Chart.Axes(xlCategory).MaximumScale = 100
 
End Sub

3 hits

【37812】散布図に空白がある場合 anct 06/5/19(金) 9:51 質問
【37818】Re:散布図に空白がある場合 anct 06/5/19(金) 12:02 発言

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