|
Range(origin, origin.Offset(ActiveSheet.UsedRange.Rows.Count, 1)).Clear
ActiveChart.SeriesCollection(currentseries).Delete
としていたところを
ActiveChart.SeriesCollection(currentseries).Values = "={1}"
ActiveChart.SeriesCollection(currentseries).XValues = ""
ActiveChart.SeriesCollection(currentseries).Delete
Range(origin, origin.Offset(ActiveSheet.UsedRange.Rows.Count, 1)).Clear
とすることでうまくいきました。
origin, origin.Offset(ActiveSheet.UsedRange.Rows.Count, 1)には
散布図のxの値とyの値が羅列されています。
どうやら系列を削除する前にSeriesCollection(currentseries).Valuesと
SeriesCollection(currentseries).XValuesを初期化しないと駄目なようです。
また、先にその領域にある数字の羅列をクリアしてしまうと
.Valuesや.XValuesを設定できなくなってしまうようです。
|
|