how to change text inside a shape in excel vba code example Example: Add Formula to Shape Text in VBA Activesheet.Shapes(i).DrawingObject.Formula = "=A1"