Переименование диаграммы в VBA

Question

Я добавил диаграмму, используя этот фрагмент кода:

ActiveSheet.Shapes.AddChart2(419, xlFunnel).Select

Теперь я хотел бы выбрать этот график, чтобы я мог его переименовать.

PS: Что это значит AddChart2? Это стандартный код или нет?

Answer 1

Вот, пожалуйста!

Dim MyChart As Shape
Set MyChart = ActiveSheet.Shapes.AddChart2(419, xlFunnel)
MyChart.Chart.SetSourceData Source:=Range("Sheet1!$F$2:$F$4")
MyChart.Name = "My new chart"

Относительно вопроса AddChart против AddChart2 - подробнее здесь Что представляет собой число в макросе AddChart2 VBA?