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

名前

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

本文 詳細を記述します。 アドインの方でもそうでない方もソースは全く同じです。 Step実行したときに Set myChartObject = Sheet1.ChartObjects.Add(160, 80, 320, 200) ↑ここで空のグラフシートが作成されません。 それゆえに .SetSourceData Sheet1.Range(sRange), xlColumns でも何も起こらずに その後、エラーになっているのだと思います。 Public Sub DrawGraph2() Dim myChartObject As Excel.ChartObject Dim sRange As String sRange = "A1:A18,C1:C18" Range(sRange).Select Set myChartObject = Sheet1.ChartObjects.Add(160, 80, 320, 200) myChartObject.Name = "NewChart01" '初期値のままでもOK With myChartObject.Chart 'チャートを設定する前には、あらかじめデータをセットしておく必要があります。 .SetSourceData Sheet1.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