Agregue la fórmula para dar forma al texto en VBA

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