|
お世話になります。ヒデアキです。
問題が出てきました。
参照範囲をかえた後、グラフの系列を
削除したいのですが、エラーが出てしまいます。
書いているものは以下です。
よろしくお願いします。
Sub Ch_Copy()
Dim Lp As Single, Tp As Single
Dim PltR As Range
Sheets("MeasData").ChartObjects("グラフ 13").Duplicate _
.Chart.Location xlLocationAsObject, "HistRead"
With Sheets("HistRead")
Lp = .Range("AK11").Left: Tp = .Range("AK11").Top
Set PltR = .Range("C15:Q25")
With .ChartObjects(.ChartObjects.Count)
.Left = Lp: .Top = Tp
.Chart.SetSourceData PltR
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(2).Delete
ActiveChart.SeriesCollection(2).Delete
ActiveChart.SeriesCollection(3).Delete
ActiveChart.SeriesCollection(3).Delete
ActiveChart.SeriesCollection(4).Delete
ActiveChart.SeriesCollection(4).Delete
ActiveChart.SeriesCollection(5).Delete
ActiveChart.SeriesCollection(5).Delete
End With
.Activate
End With
|
|