エクセル グラフにセルの値を参照した目盛を入れたい

質問

エクセル（Microsoft Office Excel 2007）の（折れ線）グラフで
縦軸・横軸それぞれに、
任意のセルを参照した線（目盛）をいれたいのですが、できるでしょうか。

イメージを添付しましたが、
任意のセルの値＜７＞を反映した横軸目盛と
任意のセルの値＜１月４日＞を反映した縦軸目盛をいれたいです。

この任意のセルの値が毎回変わるので、参照でないとダメなのですがいかがでしょうか。

お分かりになる方がいましたら、教えてください。

回答No.2

end-u · ベストアンサー

#ちょっとカブります。すみません。

（横軸と縦軸ともに散布図を使う例）
仮にデータが添付画像、及び以下のような配置だとします。

　　Ａ　　Ｂ　　Ｃ　　Ｄ　.　Ｆ　　Ｇ　　Ｈ　　Ｉ
１　日付　数値　横軸　縦軸　　横X　横Y　縦X　縦Y
２　1/1　　3 　　7　　1/4　　12/30　7　　1/4　-1
３　1/2　　4　　　　　　　　　1/12　7　　1/4　17
４　1/3　　6
５　1/4　　8
：

1)C2セルに横軸目盛、D2セルに縦軸目盛
2)F2セルに数式　=MIN(A:A)-2
3)F3セルに数式　=MAX(A:A)+2
4)G2:G3セルに数式　=C2
5)H2:H3セルに数式　=D2
6)I2セルに数式　=MIN(B:B)-2
7)I3セルに数式　=MAX(B:B)+2
8)A2:B11を選択して【散布図（直線）】グラフ作成
9)F2:G3をコピー、グラフ選択して貼り付け
10)H2:I3をコピー、グラフ選択して貼り付け
11)系列1を選択して右クリック[系列グラフの種類の変更]、【折れ線】グラフに変える
12)Y軸の最小値を 0 最大値を 16 に固定
13)X軸の最小値を 2011/1/1 最大値を 2011/1/10 に固定

一応、こんな感じの手順でできます。
(12)、(13)の軸の最小値、最大値の設定はグラフによって都度変えなければいけませんから
できればマクロを使ったほうが良いかもしれません。

Sub test()
　　With ActiveSheet.ChartObjects(1).Chart
　　　　With .Axes(xlValue)
　　　　　　.MinimumScale = WorksheetFunction.Min(Range("B:B")) - 1
　　　　　　.MaximumScale = WorksheetFunction.Max(Range("B:B")) + 1
　　　　End With
　　　　With .Axes(xlCategory)
　　　　　　.MinimumScale = WorksheetFunction.Min(Range("A:A"))
　　　　　　.MaximumScale = WorksheetFunction.Max(Range("A:A"))
　　　　End With
　　End With
End Sub

[Alt]+[F11]キー。[VisualBasicEditor]が起動します。
[Alt][i][m]の順押しで[標準モジュール]というものが挿入されます。
カーソルがフォーカスしてる右側の白いウィンドウに上記Sub test()～End Subまでの行をコピー＆ペースト。

マクロを実行する時は、グラフがあるシートがアクティブになった状態で
[Alt]+[F8]キー。
「マクロ名」　test　を選んで[実行]です。

今回の仮データの配置の場合
アクティブなシートのA列B列のデータを元に、最小値と最大値を設定し
シート上の１番目のグラフの軸設定を変更するマクロです。

お礼

解決いたしました。

数値がアクティブで、桁の異なるグラフを同時に１００個くらい更新ないといけないので、
最小値・最大値の自動設定も課題でした。
桁が大きいグラフの場合の、最小値・最小値の求め方を工夫してやってみます。

ありがとうございました。

回答No.1

keithin

横線は普通に系列の追加だけで出来ますが，縦線は散布図との複合グラフにして作成します。

●横線の追加方法
添付図Ｃ列：
一番簡単な方法としては，始まりと終わりの行に横線の高さのデータを２点入れます。
実際にはもうひとつ，１月２日にも７を記入して作成を開始すると作業が楽になります。
C1:C12をコピーしグラフに貼り付け，右クリックして近似曲線の追加を開始
　線形近似にマーク
　前方と後方にそれぞれ0.5ずつ補外を設定
　線の名称を適当に指定
　線の色とスタイルを見やすく設定しOKします
作成できたら1/2の７を削除します

●縦線の追加方法
添付図D2:E3
まずグラフの数値軸の高さ（最小値最大値）を固定します。これをしとかないと，縦線を追加した際に最大値が逃げてしまいます。

E1:E3を選択してコピー，グラフに貼り付ける
いま追加された縦系列の線を右クリックして「系列グラフの種類の変更」で散布図（直線　プロットを描かない）に変更
デザインタブのデータの選択で縦系列の編集を開始
系列Xの値に　D2:D3を設定

操作の途中で要素の選択ができないときは，レイアウトタブ左端の現在の選択範囲を使います
操作の途中で第二数値軸（右縦軸）や第二項目軸（上横軸）が発生してしまったときは，レイアウトタブの軸▼でそれぞれを無しにします。

お礼

ありがとうございます。解決いたしました。
近似曲線を使ったことがなかったので、この方法は思いつきませんでした。