Excel VBA質問箱 IV

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

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


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

41223 / 76736

←次へ　｜　前へ→


	【40594】Re:グラフ軸の最大・最小値を任意指定

ハト - 06/7/18(火) 16:42 -


	引用なし

	パスワード

▼エクセルグラフさん：
>散布図などで軸目盛りの範囲（最大最小値）をいちいち自分で指定したいのですが、セルに入力した値と連動してグラフの表示が更新されるようにすることはできますか？
>イメージ的には、X軸、Y軸の最大値、最小値を記入するセルを決めておき、
>その値が更新されると、グラフの表示も更新される、というようなマクロです。
>あるいはマクロを使わなくてもできるとベストなのですが。

C1:Y軸最小値
D1:Y軸最大値
E1:X軸最小値
F1:X軸最大値
グラフは同シートに貼り付けてある散布図

として

↓のような感じになります

Private Sub Worksheet_Change(ByVal Target As Range)

Dim TRange As Range
Dim COJ As ChartObject
　　
　　Set TRange = Intersect(Range("C1:F1"), Target)
　　
　　If TRange Is Nothing Then Exit Sub
　　
　　Set COJ = ChartObjects("グラフ 1")
　　
　　With COJ.Chart.Axes(xlValue)
　　　　.MinimumScale = Range("C1").Value
　　　　.MaximumScale = Range("D1").Value
　　End With
　　With COJ.Chart.Axes(xlCategory)
　　　　.MinimumScale = Range("E1").Value
　　　　.MaximumScale = Range("F1").Value
　　End With

End Sub

0 hits

▼

【40576】グラフ軸の最大・最小値を任意指定 エクセルグラフ 06/7/18(火) 14:03