EXCELのグラフのy軸の表示形式をマクロで変更

質問

アクティブシート内のすべてのグラフのy軸の目盛りの表示形式を一括で変更したいです。
またその表示形式はセルA4で指定したいと考えています。

他の質問などを参考にし、最小値や最大値などもセルの値によって変えれるように以下のコードを書きました。

Sub 一括変換()

Dim co As ChartObject
For Each co In ActiveSheet.ChartObjects
With co.Chart
With .Axes(xlValue)
.MinimumScale = Range("A1").Value '最小値
.MaximumScale = Range("A2").Value '最大値
.MajorUnit =　Range("A3") '目盛間隔
End With
End With
Next
End Sub

セルA４には0、0.0、0.00といった形で指定したいです。
（ユーザー定義の書き方で指定したい）

マクロを記録してやってみたりもしましたが、うまくいきません。

またセルに0.0といれてもセルの書式設定が標準の場合0になってしまうので、
書式設定を文字列に変えて、0.0としてやってみましたがうまくいがず・・・。
どのような式を入れれば良いのでしょうか？

EXCELのバージョンが2000なので、このバージョンで動くコードでお願いしたいです。

回答No.1

keithin

A3セルにはとりあえず簡易に文字列書式を施しておいて「0.0」などのように記入しておきます。

新しいマクロの記録で軸の書式設定で表示形式を変更するマクロを録ってみると
With .Axes(xlValue)
.TickLabels.NumberFormatLocal = Range("A3")
End With
といった具合でよいことが判ります。