Fügen Sie Formel hinzu, um den Text in VBA zu formen

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