ＶＢＡでグラフの凡例をまびきたいのですが

エクセル2003のＶＢＡで、グラフの凡例をまびきたいのですがやり方がわかりません。
例えば
系列1：凡例表示
系列2：凡例非表示
系列3：凡例表示
系列4：凡例非表示
といった具合です。

以下のような雰囲気のコードはないでしょうか。
For i=1 to 10
Workbooks("matome.xls").Charts("Graph_PinPex").SeriesCollection(i * 2).HasLegend = False
Next i

No.2 ベストアンサー 回答者： xls88 回答日時： 2009/09/24 19:55

Deleteしては駄目ですか？

Sub test1()
Dim i As Integer

With Workbooks("matome.xls").Charts("Graph_PinPex")
For i = .SeriesCollection.Count To 1 Step -2
.Legend.LegendEntries(i).Delete
Next i
End With
End Sub

あるいは
Sub test2()
Dim i As Integer

With Workbooks("matome.xls").Charts("Graph_PinPex")
For i = .SeriesCollection.Count To 1 Step -1
If i Mod 2 = 0 Then
.Legend.LegendEntries(i).Delete
End If
Next i
End With
End Sub

この回答へのお礼

上のコードを実行したらばっちりでした！
ありがとうございます。

お礼日時：2009/09/25 14:28

No.1 回答者： Zi-co 回答日時： 2009/09/24 16:36

凡例は手作業で非表示出来ますが・・・・？