Добавить формулу, чтобы формировать текст в VBA

Activesheet.Shapes(i).DrawingObject.Formula = "=A1"
CoffeeMug