|
>MyChart2ではA17:L31に設定したい
ならば Top の値も取得・設定する必要がありますね。
Dim Lp As Single, Tp As Single, Wp As Single, Hp As Single
と、変数の宣言を追加し
With .Range("A17:L31")
Lp = .Left + 5
Tp = .Top + 5
Wp = .Width - 10
Hp = .Height - 10
End With
と、取得して
Set MyCh = .ChartObjects.Add(Lp, Tp, Wp, Hp)
と、設定します。
>A39:K39に記載されている日付をグラフ横軸に表示
両方のグラフ共通で、39行目をX軸にする。ということでしょーか ?
それなら MyChart2のコードを
>.Formula = "=SERIES(," & .Name & "!$A$48:$K$48," & _
>.Name & "!$A$" & i & ":$K$" & i & "," & j & ")"
↓
.Formula = "=SERIES(," & .Name & "!$A$39:$K$39," & _
.Name & "!$A$" & i & ":$K$" & i & "," & j & ")"
とすれば良いのです。ちなみに SERIES関数(Excel4マクロ関数です)の引数は
=SERIES(系列名,X軸範囲,Y軸範囲,系列番号)
となっていて、系列名はブランクにしても文字列を "" で括って渡してもOKです。
これを知っていれば、自由にプロット範囲の書き換えが出来ますので、ぜひ覚えて
おいて下さい。
|
|