|
>最初は"BI12"から"BM22"の範囲を参照。
>次は12列目の"BI34"から"BM44"のデータ範囲
"項目軸の範囲も含めて" ですか ?
Sub Ch_Copy()
Dim Lp As Single, Tp As Single, Hp As Single
Dim CCnt As Long, TopR As Long
Dim PltR As Range
Sheets("MeasData").ChartObjects("グラフ 13").Duplicate _
.Chart.Location xlLocationAsObject, "HistRead"
With Sheets("HistRead")
CCnt = .ChartObjects.Count
With .Cells(CCnt * 10, 2)
Lp = .Left: Tp = .Top: Hp = .Resize(5).Height
End With
If CCnt = 1 Then
TopR = 12
Else
TopR = (CCnt - 1) * 22 + 12
End If
Set PltR = .Range("BI" & TopR).Resize(11, 5)
With .ChartObjects(CCnt)
.Left = Lp: .Top = Tp: .Height = Hp
.Chart.SetSourceData PltR
End With
.Activate
End With
End Sub
単純な算数の問題だから、項目軸範囲が別であっても、応用して自分で改造して
みて下さい。Unionメソッドで連結する書き方は、既に回答していますから、
出来るはずです。
|
|