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

質問

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

回答No.4

TTak · ベストアンサー

> 「AxisクラスのMinimumScaleプロパティを設定できません」
一つ、重大な過ちに気づきました（汗）。「折れ線グラフ」で描かれている
ということを見落としていました。申し訳ありません。
もし、問題なければ、X軸のサンプル間隔に制限のない「散布図」を使われては
いかがでしょう？。スムーズな線がゴツゴツになってしまう例として、X軸系列
の増分が一定でないことが考えられます。
回答No.3に示したマクロの
For Each Chart In .Charts
の下に
Chart.ChartType = xlXYScatter
With Chart.SeriesCollection(1)
.Border.Weight = xlHairline
.Smooth = True
End With
の5行追加していただければOKです。

なお、「折れ線グラフのままにしたい」ということでしたら、
次のように書き直してください。

Sub Macro2()
With ActiveWorkbook
Set stTime = Sheets("Sheet1").Cells(2, 1) 'x軸の最小値
Set edTime = Sheets("Sheet1").Cells(38, 1) 'x軸の最大値
n = edTime.Row - stTime.Row 'x軸の幅n
For Each Chart In .Charts
With Chart.Axes(xlCategory)
.TickLabelSpacing = n / 10 '目盛ラベルにnの10分割を入れる
.TickMarkSpacing = n / 10
End With
Next Chart
End With
Set stTime = Nothing
Set edTime = Nothing
End Sub

なお、シート保護がかかった状態でも同様のエラーメッセージが出ます。
-いずれもEXCEL2000にて動作確認-

お礼

毎度、ありがとうございます。
今晩また試してみます。
スムーズな線がゴツゴツになってしまう例として、X軸系列
の増分が一定でないことが考えられます。
確かに、祝日、土日のデータが抜けているので、それが
原因かも知れません。