|
たびたび、お世話になっております。
過去の投稿より「散布図の作成」というコードを
使用させていただいているのですが
新しいシートにグラフが作成されてしまいます。
これを埋め込みグラフにしたいのですが、できません。
次に使うマクロが埋め込みグラフに作用するので
現状では、毎回グラフの移動をしています。
毎月グラフを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
|
|