Excel VBA質問箱 IV

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

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


7654 / 13644 ツリー ←次へ | 前へ→

【37678】散布図のxの値 anct 06/5/15(月) 16:35 質問[未読]
【37680】Re:散布図のxの値 Kein 06/5/15(月) 16:48 発言[未読]
【37681】Re:散布図のxの値 anct 06/5/15(月) 17:06 回答[未読]
【37688】Re:散布図のxの値 Kein 06/5/15(月) 19:07 回答[未読]
【37723】Re:散布図のxの値 anct 06/5/16(火) 20:14 お礼[未読]

【37678】散布図のxの値
質問  anct  - 06/5/15(月) 16:35 -

引用なし
パスワード
   グラフの散布図を表示するときにXの値とYの値を設定したいんですが,
Xの値に設定しようとしてもYの値になってしまいます。この場合,
どうしたらよいのでしょう。

【37680】Re:散布図のxの値
発言  Kein  - 06/5/15(月) 16:48 -

引用なし
パスワード
   もっと具体的に説明しないと、誰も回答できませんよ。
データはセルに入力されているのですか ? それなら何シートのどこ(セルアドレス)
にありますか ? それから、作成するグラフはグラフシートですか、ワークシートの
埋め込みですか ?
>Xの値に設定しようとしてもYの値になってしまいます
どーいう処理をしたのでしょーか ?

【37681】Re:散布図のxの値
回答  anct  - 06/5/15(月) 17:06 -

引用なし
パスワード
   ▼Kein さん:

ご指摘ありがとうございます。

>データはセルに入力されているのですか ? それなら何シートのどこ(セルアドレ
>ス)にありますか ?

はい,データはセルに入力されています。今の場所は,ワークシートのsheet1に
A列とB列にあります。

>それから、作成するグラフはグラフシートですか、ワークシート
>の埋め込みですか ?

作成するグラフはワークシートの埋め込みだと思います。

>>Xの値に設定しようとしてもYの値になってしまいます
>どーいう処理をしたのでしょーか ?

Sub ch()
  Dim ch As ChartObject
  
  Set ch = Worksheets("sheet1").ChartObjects.Add(0, 0, 500, 200)
  ch.Chart.ChartType = xlXYScatterLinesNoMarkers
  ch.Chart.ChartWizard Source:=Worksheets("sheet1").Range("a1:b20"),  PlotBy:=xlColumns
    
End Sub

こういう処理を行いました。これで,A1からA20までがXの値になってほしかったんですけど,系列が2つ出来でしまいました。

【37688】Re:散布図のxの値
回答  Kein  - 06/5/15(月) 19:07 -

引用なし
パスワード
   では、こんな感じでどうでしょーか ?

Sub ch2()
  Dim ch As ChartObject
  Dim se As Series
  
  With Worksheets("Sheet1")
    Set ch = .ChartObjects.Add(0, 0, 500, 200)
    ch.Chart.ChartType = xlXYScatterLinesNoMarkers
    Set se = ch.Chart.SeriesCollection.NewSeries
    se.XValues = .Range("A1:A20")
    se.Values = .Range("B1:B20")
  End With
  Set ch = nothing: Set se = Nothing  
End Sub

【37723】Re:散布図のxの値
お礼  anct  - 06/5/16(火) 20:14 -

引用なし
パスワード
   Keinさんありがとうございました。
無事にうまくいくことができました。

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