08/01/22 12:59:28
>>461
確認する時間がないのでヒントのみ。 あとはヘルプ見ながら直して。
Dim s As Worksheet
Dim c As ChartObject
Set s = Worksheets.Item("test") ←"test" って名前のシートが取得できる
Set c = s.ChartObjects(1) ←取得したシートの、１つめの図を取得
あとは c.Chart.Axes.Item(xlValue).MinimumScale な感じで対応する値が取得できると思われ。
まとめて書くこともできるが、とりあえず入力補助に反応する書き方にしといた。