|
返信ありがとうございます。
このように書いてみたのですが、
SeriesクラスのDeleteメソッドが失敗しました、と
でてしまいます。
自分の書き方がおかしいからでしょうか?
すいませんよろしくお願い致します。
Sub Ch_Copy()
Dim Lp As Single, Tp As Single
Dim PltR As Range
Dim i As Integer
Sheets("MeasData").ChartObjects("グラフ 15").Duplicate _
.Chart.Location xlLocationAsObject, "HistRead"
With Sheets("HistRead")
Lp = .Range("AW11").Left: Tp = .Range("AW11").Top
Set PltR = .Range("T15:AF25")
With .ChartObjects(.ChartObjects.Count)
.Left = Lp: .Top = Tp
.Chart.SetSourceData PltR
ActiveChart.ChartArea.Select
For i= 5 To 2 Step -1
ActiveChart.SeriesCollection(i).Delete
Next i
End With
.Activate
End With
▼Kein さん:
>インデックスが付いているものは、削除・挿入とも逆順でやるのがセオリーです。
>従って
>
>For i = 5 To 2 Step -1
> ActiveChart.SeriesCollection(i).Delete
>Next i
>
>などとします。
|
|