|
下記、エラーになる理由と解決方法をご教示頂けますでしょうか?
・出来れば、Axisを変数に入れたい。(下記例では、Withで書いても良いんですけど)
・メンバ自動表示を使いたいので、Variantは使いたくない。
Sub グラフ範囲変更()
Dim co As ChartObject
Dim c As Chart
Dim a As Axis
Dim v As Variant
For Each co In Sheet1.ChartObjects
If co.Left < 50 Then
Set c = co.Chart
c.Axes(xlCategory).MinimumScale = "2009/8/1" ' 正常動作
c.Axes(xlCategory).MaximumScale = "2009/8/31"
Set v = co.Chart.Axes(xlCategory)
v.MinimumScale = "2009/8/1" ' 正常動作
v.MaximumScale = "2009/8/31"
Set a = co.Chart.Axes(xlCategory)
a.MinimumScale = "2009/8/1" ' ☆「型が一致しません」エラー☆
a.MaximumScale = "2009/8/31"
End If
Next
End Sub
|
|