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 質問
【27485】Re:グラフの挿入時のエラー回避について Kein 05/8/10(水) 12:28 回答
【27521】Re:グラフの挿入時のエラー回避について andy 05/8/10(水) 19:41 質問
【27533】Re:グラフの挿入時のエラー回避について Kein 05/8/10(水) 22:35 回答
【27551】Re:グラフの挿入時のエラー回避について andy 05/8/11(木) 15:38 質問
【27555】Re:グラフの挿入時のエラー回避について Kein 05/8/11(木) 16:23 回答
【27652】Re:グラフの挿入時のエラー回避について andy 05/8/15(月) 1:36 質問
【27695】Re:グラフの挿入時のエラー回避について Kein 05/8/16(火) 14:46 回答

53981 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free