|
▼エクセルグラフ さん:
>散布図などで軸目盛りの範囲(最大最小値)をいちいち自分で指定したいのですが、セルに入力した値と連動してグラフの表示が更新されるようにすることはできますか?
>イメージ的には、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
|
|