Adicionar fórmula para moldar o texto em VBA
Activesheet.Shapes(i).DrawingObject.Formula = "=A1"
CoffeeMug
Activesheet.Shapes(i).DrawingObject.Formula = "=A1"