先日、ChartのSeriesCollectionがエラーになったり、ならなかったりする困った問題がありました。
カーソルの位置によってCharts.Addの結果は変わるそうです。
そのため、Charts.Add実行時のカーソルの位置によってエラーになったり、ならなかったりします。
以下の個所で次のエラーメッセージが出力される場合は「SeriesCollection.NewSeries」を追加するとうまくいくかもしれません。
実行時エラー'1004' パラメータが無効です。
Set chart = Charts.Add
ActiveChart.SeriesCollection(1).XValues = xxx <<< ここでエラーが発生
↓↓↓↓
Set chart = Charts.Add
ActiveChart.SeriesCollection.NewSeries <<< これを追加することで解決
ActiveChart.SeriesCollection(1).XValues = xxx
どうもありがとうございます。大変参考になりました。
返信削除