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

質問

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

回答No.3

TTak

誤解ですか？失礼しました(^^;)。For each - nextステートメントのご指摘ありがとうございます。早速以下の通り訂補してみましたがいかがでしょう？
Sub Macro1()
With ActiveWorkbook
Set stTime = Sheets("Sheet1").Cells(50, 1) 'x軸の最小値
Set edTime = Sheets("Sheet1").Cells(150, 1) 'x軸の最大値
n = edTime.Value - stTime.Value 'x軸の幅n
For Each Chart In .Charts
With Chart.Axes(xlCategory)
.MinimumScale = stTime.Value
.MaximumScale = edTime.Value
.MajorUnit = n / 10 '目盛りにnの10分割を入れる
End With
Next Chart
End With
Set stTime = Nothing
Set edTime = Nothing
End Sub

お礼

TTakさん、
昨日ご回答頂いたサンプルコードをコピーして試したところ、
.MinimumScale = stTime.Value のところでエラーが発生してしまいます。
.MaximumScale = edTime.Value のところでもエラーが発生すると考えられます。最初は変数もしくはコーディングの間違えと思い色々と検討してみましたが結局駄目でした。デバッグで変数の値をチェックしてみるとstTime,edTimeともにcells(50,1), cells(150,1)の値が入っていることは確認しました。エラーメッセージは次のようなダイアログが表示されました。
「AxisクラスのMinimumScaleプロパティを設定できません」
何か心当たりはありますか？
MajorUnit = n / 10 は、なかなかわかりやすかったです。