| |
▼sophia さん：
こんばんは。
>こんにちは。下記のプログラムのように散布図の系列を1以外全て消したいの
>ですが、グラフによっては「SeriesCollectionオブジェクトが失敗しました」
>というエラーが発生します。
>ある系列が存在するかどうかチェックする方法があれば教えてください
>
>
>Dim index as integer,GraphNum as integer
>
>For Each ch In ActiveSheet.ChartObjects
> ch.Activate
> GraphNum = ActiveChart.SeriesCollection.Count
>
> For index = 2 To GraphNum Step 1
> ActiveChart.SeriesCollection(index).Delete
> Next index
>Next
削除は、インデックスの大きい数から小さい数に向かって
削除してみてください。
Sub main()
Dim ch As ChartObject
Dim cht As Chart
Dim index As Integer, GraphNum As Integer
For Each ch In ActiveSheet.ChartObjects
Set cht = ch.Chart
GraphNum = cht.SeriesCollection.Count
For index = GraphNum To 2 Step -1
cht.SeriesCollection(index).Delete
Next index
Next
Set ch = Nothing
Set cht = Nothing
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
