Fügen Sie Text hinzu, um VBA zu formen
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"