Мне интересно, что не так с этим кодом.Код для заголовка диаграммы правильный, но для легенды говорится, что объект не поддерживает.
ActiveSheet.ChartObjects("Chart 1").Chart.ChartTitle.Text = "2019 Revenue"
ActiveSheet.ChartObjects("Chart 1").Chart.Legend.Text = "2019 Revenue"