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

名前

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

本文 VB6は関係なく、マクロ自体に問題がある、という事ですね。 この場合は、マクロの最初に、 Range("A1:B18").Select を挿入しておいてください。これで、マクロ実行も通ると思います。 ただ、マクロで自動記録される内容は、変数が使えない分、 Active系/Select系に頼ったコードになるため、曖昧(そして冗長的)に なりがちなので、後から、コードに手を加えた方が良いでしょう。 [Active系に頼らない修正案] Public Sub DrawGraph2() Dim myChartObject As Excel.ChartObject Set myChartObject = Sheet1.ChartObjects.Add(200, 100, 400, 250) myChartObject.Name = "NewChart01" '初期値のままでもOK With myChartObject.Chart 'チャートを設定する前には、あらかじめデータをセットしておく必要があります。 .SetSourceData Sheet1.Range("A1:B18"), xlColumns .ApplyCustomType xlBuiltIn, "2 軸上の折れ線" .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False .Axes(xlCategory, xlSecondary).HasTitle = False .Axes(xlValue, xlSecondary).HasTitle = False End With Set myChartObject = Nothing End Sub