Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53981 / 76732

←次へ　｜　前へ→


	【27555】Re:グラフの挿入時のエラー回避について

Kein - 05/8/11(木) 16:23 -


	引用なし

	パスワード

>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です。
これを知っていれば、自由にプロット範囲の書き換えが出来ますので、ぜひ覚えて
おいて下さい。

0 hits

▼

【27483】グラフの挿入時のエラー回避について andy 05/8/10(水) 11:38