Excel VBA質問箱 IV

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

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


41219 / 76732 ←次へ | 前へ→

【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 質問
【40594】Re:グラフ軸の最大・最小値を任意指定 ハト 06/7/18(火) 16:42 回答
【40720】Re:グラフ軸の最大・最小値を任意指定 エクセルグラフ 06/7/21(金) 13:05 お礼

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