Excel VBAにて助けてほしいです。

質問

マクロ記述でグラフを挿入を記録したものを、VBAで実行すると

実行時エラー　アプリケーション定義またはオブジェクト定義のエラーです。
となります。

Range("C3:O5").Select
ActiveSheet.Shapes.AddChart2(201, -4111).Select
ActiveChart.SetSourceData Source:=Range("決算!$C$3:$O$5")

-4111が認識されないのかわかりません。
集合縦棒2つ　折れ線グラフ1つ

表及び記録されたコードの画像を添付します。
なんとか宜しくお願い致します。

回答No.2

kkkkkm · ベストアンサー

記録で取得すると確かに-4111になりますね…。
エラー内容は違いますが実行するとエラーになりました。エクセル2013。
以下のように第2軸を別途作成するしかないのかもしれません。

Range("C3:O5").Select
ActiveSheet.Shapes.AddChart2(201).Select
With ActiveChart.SeriesCollection(3) '3つ目を
.AxisGroup = 2 ''第2軸
.ChartType = xlLine '折れ線
End With
ActiveChart.SetSourceData Source:=Range("決算!$C$3:$O$5")

回答No.1

tanakanono

-4111はどこから来たのでしょうか？
ここはチャートタイプを入れるところです。チャートタイプ一覧は以下です。
https://docs.microsoft.com/ja-jp/office/vba/api/excel.xlcharttype