|
ありがとうございます。
さっそくチャレンジしてみます。
お礼の返信遅くなって申し訳ありません。
▼Kein さん:
>>最初は"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メソッドで連結する書き方は、既に回答していますから、
>出来るはずです。
|
|