форматирование легенды изменяется при копировании и вставке диаграммы

Question

Следующий код VBA успешно меняет формат легенды на моих диаграммах на то, что мне нужно:

With ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Legend.Height = 136.876
End With

With ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.Legend.Height = 136.876
End With

Однако на следующем шаге моего кода я копирую эти диаграммы в новую рабочую книгу, а затем тогда форматирование моих легенд неверно.

Код, который делает это:

'New workbook

 Dim newBook As Workbook

    Dim filePath As String
    Dim fileName As String
    Dim fileFullPath As String




    ' Build the path
    filePath = ThisWorkbook.Path & "\"

    fileName = "Summary_Output_" & _
            Format(Date, "ddmmmyyyy") & "_" & ".xlsx"

    fileFullPath = filePath & fileName

    ' Add a new workbook
    Set newBook = Workbooks.Add

    ' Save it with the path built
    newBook.SaveAs fileFullPath

    ' Copy the sheet
    ThisWorkbook.Sheets("Summary").Copy Before:=Workbooks(fileName).Sheets(1)

    ' Copy/paste values LTD SUMMARY
    newBook.Sheets("Summary").UsedRange.Copy
    newBook.Sheets("Summary").UsedRange.PasteSpecial xlPasteValues
    newBook.Sheets("Summary").UsedRange.PasteSpecial xlPasteFormats

Как я могу изменить код для моей легенды, чтобы он сохранял свое форматирование при копировании и вставке? ?

Спасибо.