Excel VBAでグラフシートをブック内の末尾に追加する方法
直接 Charts.Add After:=Sheets(Sheets.Count) と指定すると何故か最後から2番目に追加される。
よって、一旦適当な位置に追加してから追加されたシートを末尾へ移動してやる。
Sub AddChartsAtTheEndOfSheets() Charts.Add ' 位置を指定せずに追加 ActiveChart.Move After:=Sheets(Sheets.Count) ' 末尾へ移動 End Sub