Adicione texto para moldar VBA
ActiveWorksheet.Shapes(shapeIndex/Name).TextFrame2.TextRange.Text = "Hello shape"
CoffeeMug
ActiveWorksheet.Shapes(shapeIndex/Name).TextFrame2.TextRange.Text = "Hello shape"
Activesheet.Shapes(i).DrawingObject.Formula = "=A1"