Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63621 / 76807

←次へ　｜　前へ→


	【17781】Re:グラフコピー

ヒデアキ - 04/9/7(火) 17:06 -


	引用なし

	パスワード

返信ありがとうございます。

このように書いてみたのですが、
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
>
>などとします。

1 hits

▼

【17531】グラフコピー ヒデアキ 04/9/1(水) 19:28