ActiveChart.Shapes.AddTextbox(msoTextOrientationHo rizontal, 31.5, 8.5, _
122.75, 42#).Select
generate a automatic name "Text box X" x= number auto number
How to get name on textbox or set name in shapes at chart

Hi,

If you assign the shape to an object then you can retrieve and set
properties.

'---------------
Sub x()
Dim shpTemp As Shape

Set shpTemp =
ActiveChart.Shapes.AddTextbox(msoTextOrientationHo rizontal, _
31.5, 8.5, 122.75, 42#)
shpTemp.TextFrame.Characters.Text = shpTemp.Name

End Sub
'-----------------

PBN wrote:
ActiveChart.Shapes.AddTextbox(msoTextOrientationHo rizontal, 31.5, 8.5, _
122.75, 42#).Select
generate a automatic name "Text box X" x= number auto number
How to get name on textbox or set name in shapes at chart

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info