|
お久しぶりです。ヒデアキです。
PCが故障中で作業ができませんでした。
Keinさんへ
Set PltR = Union(.Range("C2:E16"), .Range("H2:J16"))
ここで質問ですが、グラフの参照範囲もグラフの位置の変更と同様に
1つ目のデータ範囲は10行目から15行目まで。2つ目のデータ範囲は20行目から25行目までのところというふうにできませんか?
ご返信よろしくお願いいたします
>>履歴を残そうとしている
>の意味は分かりませんが
>>1つ目は10行目のところ。2つ目のデータは20行目のところ
>それなら・・
>
>Sub Ch_Copy()
> Dim Lp As Single, Tp As Single
> Dim CCnt As Long
> Dim PltR As Range
>
> Sheets("MeasData").ChartObjects("グラフ 13").Duplicate _
> .Chart.Location xlLocationAsObject, "HistRead"
> With Sheets("HistRead")
> CCnt = .ChartObjects.Count
> Lp = .Columns(2).Left: Tp = .Cells(CCnt * 10, 2).Top
> Set PltR = Union(.Range("C2:E16"), .Range("H2:J16"))
> With .ChartObjects(CCnt)
> .Left = Lp: .Top = Tp
> .Chart.SetSourceData PltR
> End With
> .Activate
> End With
>End Sub
>
>などと「グラフの数 * 10」の行で Top 位置を決めたらどうでしょーか
|
|