VBA: редагування назв легенд з Excel-графіку за допомогою VBA - excel, vba, excel-vba

Я зробив діаграму, де я намагаюся побудувати деякі конкретні дані. Для цього я зробив цей код:

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 в легенді ви б змінили його так само, як ви змінили назву Series1:

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

Примітка: Я спочатку відповів таким чином:

Наступний рядок коду додає ваші небажані Серія2:

.SeriesCollection.NewSeries

Просто видаліть його.

Але зараз я бачу, що це не зовсім правильно. Іноді створюється додаткова, іноді не, залежно від того, що сталося в минулому на аркуші (я думаю, що я пропускаю щось очевидне). Якщо у вас виникли додаткові ряди ", ви можете видалити будь-які зайві з викликом:

.SeriesCollection(2).Delete

якщо ви використовуєте правильний номер серії. Ви можете включити такий тест, щоб дізнатися, чи було зроблено додаткове:

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