[[20111001213713]]　『MinimumScaleで日付を用いるとエラーとなります』（momo）　ページの最後に飛ぶ

『MinimumScaleで日付を用いるとエラーとなります』（momo）
初めて質問させていただきます。VBA初心者です。

グラフを作成する処理過程で、X軸目盛りを日付としてグラフ作成用のデータを読み込み、その後グラフ軸の最大最小値を変える

べく以下の記述を追記したところ、「実行時エラー'1004'　AxisクラスのMinimumScaleプロパティーを設定できません」となり

ます。

            With ActiveChart.Axes(xlValue)
                .MinimumScaleIsAuto = False  
                .MaximumScaleIsAuto = False  
            End With

             Dim 月初日, 月末日 As Date
            ActiveChart.Axes(xlCategory).Select
            月末日 = Year(Date) & "/" & Month(Date) & "/" _
                           & Right(DateSerial(Year(Date), Month(Date) + 1, 0), 2)
            月初日 = Year(Date) & "/" & Month(Date) & "/" & "1"

            With ActiveChart.Axes(xlCategory)
                  .MinimumScale = 月初日
                  .MaximumScale = 月末日
            End With

editorで内容を見てみますと、「月初日："2011/10/1"」、「月末日：2011/10/31」となっておりましたが、どちらも同じエラー

となります。うまくデータを取得し、グラフ表示してくれる場合もあるのでよくわかりませんので教えてください。
なお、もっと確実な方法があればそのほうでも結構です。

 余り真剣に考えていませんが、単に、型違いと云うことはありませんか？

 ＞ Dim 月初日, 月末日 As Date

    Dim 月初日 As Date , 月末日 As Date
                   ↑

 (半平太) 2011/10/01 22:50

Dim の宣言の仕方を間違って理解していました。
as Dateをつけなかった「月初日」は「Variant型式」なることを知らなかった単純ミスです。ご指摘ありがとうございました。
（momo） 2011/10/02 18:01

コメント返信：

[ 一覧(最新更新順) ]

[[20111001213713]] 『MinimumScaleで日付を用いるとエラーとなります』（momo） ページの最後に飛ぶ

[[20111001213713]]　『MinimumScaleで日付を用いるとエラーとなります』（momo）　ページの最後に飛ぶ