VBAで2 軸上の折れ線グラフを作成するには？ (ID:82461)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

環境は、
Win2000  エクセル2000  VB6.0
です。

概要：
2 軸上の折れ線グラフをVBAで作成したい。
マクロの記録で作成したものを流用しようとしたら実行できなかった。

詳細：
下記の表データをエクセルでに記入し、
2 軸上の折れ線グラフを作成しました。
それをマクロに記録したものが下記のマクロ(DrawGraph())です。

これをそのまま実行すると
「実行時エラー '1004'
  'Axes'メソッドは失敗しました:'_Chart'オブジェクト」
と表示され、実行できません。
作成したマクロは一切いじっていません。
何故でしょうか？
どなたかご教授願います。

マクロ：
---------------------------
Sub DrawGraph()
    Charts.Add
    ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="2 軸上の折れ線"
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B18"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
        .Axes(xlCategory, xlSecondary).HasTitle = False
        .Axes(xlValue, xlSecondary).HasTitle = False
    End With
End Sub
---------------------------

表のデータ：
---------------------------
AAA BBB
999  17
600  27
386  34
330  39
315  45
310  50
305  55
300  60
300  65
300  70
300  75
300  80
300  85
300  91
260  95
200  98
100 100
---------------------------

←解決時は質問者本人がここをチェックしてください。

戻る