Excel VBA質問箱 IV

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

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


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

【64518】散布図を埋め込みたい jun 10/2/18(木) 14:33 質問[未読]
【64519】Re:散布図を埋め込みたい Jaka 10/2/18(木) 17:15 発言[未読]
【64530】Re:散布図を埋め込みたい jun 10/2/19(金) 15:17 質問[未読]
【64531】Re:散布図を埋め込みたい Jaka 10/2/19(金) 16:50 発言[未読]
【64549】Re:散布図を埋め込みたい jun 10/2/23(火) 11:10 発言[未読]

【64518】散布図を埋め込みたい
質問  jun  - 10/2/18(木) 14:33 -

引用なし
パスワード
   たびたび、お世話になっております。

過去の投稿より「散布図の作成」というコードを
使用させていただいているのですが
新しいシートにグラフが作成されてしまいます。

これを埋め込みグラフにしたいのですが、できません。
次に使うマクロが埋め込みグラフに作用するので
現状では、毎回グラフの移動をしています。
毎月グラフを70近く作るので
どなたかお知恵を貸していただけないでしょうか?

宣言と With の後ろに、手元にあるHowTo本の埋め込みグラフのコードを移植しましたが
エラーが出てしまって使えません。
よろしくお願いいたします。

Sub 散布図を作る()
  Dim xRow As Long
  Dim MyR As Range
  Dim myRange As Range
  Set myRange = Range("A10:A25")

  With ActiveSheet 'アクティブシートのグラフを作ります’シートの指定は→Sheets("Sheet1")
    xRow = .Range("C65536").End(xlUp).Row
  Set MyR = Union(.Range("D1:D" & xRow), .Range("C1:C" & xRow))
  End With
  With ActiveSheet.ChartObjects.Add( _
    myRange.Left, myRange.Top, myRange.Width, myRange.Height)
    .Name = "タイプ別散布図"
   
 
    .ChartType = xlXYScatter
    .SetSourceData Source:=MyR, PlotBy:=xlColumns
  End With
  Set MyR = Nothing

End Sub

【64519】Re:散布図を埋め込みたい
発言  Jaka  - 10/2/18(木) 17:15 -

引用なし
パスワード
   >    .ChartType = xlXYScatter
>    .SetSourceData Source:=MyR, PlotBy:=xlColumns

     ↓

    .Chart.ChartType = xlXYScatter
    .Chart.SetSourceData Source:=MyR, PlotBy:=xlColumns

【64530】Re:散布図を埋め込みたい
質問  jun  - 10/2/19(金) 15:17 -

引用なし
パスワード
   Jaka さん、ありがとうございます。

無事、埋め込まれたのですが
マーカーが線でつながれてしまいました。
よかったらご教授ください。

よろしくお願いします。

【64531】Re:散布図を埋め込みたい
発言  Jaka  - 10/2/19(金) 16:50 -

引用なし
パスワード
   ▼jun さん:
>マーカーが線でつながれてしまいました。
良くわかってませんけど、こうしてみたら???

  Set MyR = Union(.Range("D1:D" & xRow), .Range("C1:C" & xRow))
          ↓
  Set MyR = .Range("D1:D" & xRow & ",C1:C" & xRow)

【64549】Re:散布図を埋め込みたい
発言  jun  - 10/2/23(火) 11:10 -

引用なし
パスワード
   Jaka さん、遅くなって申し訳ありません。

変更をしてみたのですが、散布図が「折れ線とマーカー」になってしまいます。
なぜ、埋め込みグラフにしたら折れ線がつくのか
調べてみたいと思います。

Jakaさん、ありがとうございました。

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