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

名前

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

本文 ありがとうございます。 下記のようにしてみましたが、変化なく、エラーでした。 Public Sub DrawGraph2() Dim myChartObject As Excel.ChartObject Dim sRange As String sRange = "A1:A18,C1:C18" ThisWorkbook.Activate ActiveSheet.Range(sRange).Select Set myChartObject = ActiveSheet.ChartObjects.Add(160, 80, 320, 200) myChartObject.Name = "NewChart01" '初期値のままでもOK With myChartObject.Chart 'チャートを設定する前には、あらかじめデータをセットしておく必要があります。 .SetSourceData ActiveSheet.Range(sRange), 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 しかし、 ThisWorkbook.Activate ActiveSheet.Range(sRange).Select を削除してみたら動きました。 魔界の仮面弁士様ありがとうございました。