Excel VBAでのグラフ作成の際にミスした箇所と修正方法について教えてください

質問

• エクセルのVBAを用いてグラフを作成する際、X軸に日付の目盛りを表示させる方法を調べています。記録したマクロを基に追加プログラムを書いていますが、X軸の目盛りが表示されるようになりましたが、グラフの形が変わってしまう問題に直面しました。具体的なプログラムは、指定のデータでグラフを作成し、日付データをX軸に設定するといった流れで組んでいます。どのようにすれば、X軸の目盛りラベルのみ変更（表示）させることができるのでしょうか。
• ExcelのVBAを使用してデータの時間経過の折れ線グラフを作成しています。しかし、X軸に日付の目盛りを表示させる方法がわかりません。既存のデータでグラフを作成した後、日付データをX軸に設定しましたが、グラフの形が変わってしまいました。グラフの表示形式を変えずに、X軸の目盛りラベルのみ変更（表示）させるにはどのようにすれば良いのでしょうか。
• ExcelのVBAを使ってデータの折れ線グラフを作成しようとしています。X軸に日付の目盛りを表示させるために、マクロを記録して追加プログラムを書いていますが、グラフの形が変わってしまいます。具体的なプログラムは、指定のデータでグラフを作成し、日付データをX軸に設定するといった流れです。X軸の目盛りラベルのみ変更（表示）させる方法を教えてください。

回答No.2

TTak

> チャートシートでも同様に設定可能でしょうか
チャートシートとはグラフシートのことと察しますが、同様に設定可能です
また、完全に処理を自動化するならば、速度を考慮して、activateメソッド
を使わない方がいいでしょう。

> 目盛り間隔（例えば10個）を同時に設定するにはどのようなコードを入れれば良いのでしょうか？

これはグラフシートが複数あって、X軸を一気に同じ設定にしたいということ
ですね。私が思いつくのは、Chartsオブジェクト（グラフシート）の個数を
数えて、Chartsコレクションオブジェクトのインデクスに順々に値を入れて、
X軸を設定していく方法です。

Sub Macro1()
With ActiveWorkbook
For I = 1 To .Charts.Count
With .Charts(I).Axes(xlCategory)
.MinimumScale = Sheets("Sheet1").Cells(50, 1).Value
.MaximumScale = Sheets("Sheet1").Cells(150, 1).Value
End With
Next I
End With
End Sub

-EXCEL2000にて動作確認済み-

補足

私の質問の仕方が悪い様で、誤解されたと思います。
X軸の最小値（例えば0）、最大値（例えば100）の設定に加え、目盛り間隔を10にして10個の目盛りラベルをふるということです。目盛り間隔を5にした時は20個の目盛りラベルをふることになります。この様な設定を軸の設定と同様にコーディングしたいということです。
PS、Activate methodは遅いのですか？、今後、極力使用しない様に心がけます。
参考になりました。今回の回答頂いたFor - nextのループ処理をFor each - nextステートメントに変えると処理時間の短縮につながると思います（全ての対象オブジェクトに対してループ処理を行う場合）。