VBA：VBAを使用してExcelチャートから凡例の名前を編集する

Question

私は特定のデータをプロットしようとしました。そのために、私はこのコードを作っ：

Sub plotsim() 
Dim sh As Worksheet 
Dim chrt As Chart 
worksh = Application.Sheets.Count 
Set sh = ActiveWorkbook.Worksheets("Simulation") 
Set chrt = sh.Shapes.AddChart.Chart 
With chrt 
    .ChartType = xlLine 
    .SeriesCollection.NewSeries 
    .SeriesCollection(1).Name = "=""Portfolio forecast""" 
    .SeriesCollection(1).XValues = Sheets("Simulation").Range("A2:A" & fsize + 1) 
    .SeriesCollection(1).Values = Sheets("Simulation").Range(Sheets("Simulation").Cells(2, worksh + 1), Sheets("Simulation").Cells(fsize + 1, worksh + 1)) 
End With 
End Sub 

をしかし、私はチャートを見てみたら、私が見るには、2本の異なるラインを持つ伝説です。

シリーズ2のタイトルを削除（または編集）するにはどうすればよいですか？

Answer 1

あなたが本当に伝説にシリーズ2を編集したい場合、あなたはそれをあなたがシリーズ1の名前変更同じように変更になります。

.SeriesCollection(2).Name = "Unwanted series" 

---

注：Iをもともと次のように答えていた：

次のコード行は、あなたの不要なシリーズ2を追加します

.SeriesCollection.NewSeries 

は、単にそれを削除します。

しかし、今は完全に正しいとは言えません。過去に何が起こったのかによって、時には追加のものが作成されることもあります（私は何かが分かりません）。私は両方の動作を再現することができました。限り、あなたが正しいシリーズ番号を使用するよう

.SeriesCollection(2).Delete 

：あなたが何らかの形で追加のシリーズで終わる場合は、呼び出しで余分なものを削除することができます。

If .SeriesCollection.Count > 1 then .SeriesCollection(2).Delete