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

Question

Я хотел бы добавить новые / дополнительные метки данных из диапазона, используя VBA (не работает):

Sub pptfromexcel()

Set chart5 = ActiveSheet.ChartObjects("Chart 5")
Sheets("Wykresy").ChartObjects("Chart 5").Chart.DataLabel.Text = True
Sheets("Wykresy").ChartObjects("Chart 5").Chart.DataLabel.Text = Sheets("Wykresy").Range("I32:I39").Text

End Sub