vba to put text in a shape code example

Example: add text to Shape VBA

ActiveWorksheet.Shapes(shapeIndex/Name).TextFrame2.TextRange.Text = "Hello shape"