Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17663 / 76732

←次へ　｜　前へ→


	【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

0 hits

▼

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

≪