shapes textbox name..

ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 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(msoTextOrientationHorizontal, _
31.5, 8.5, 122.75, 42#)
shpTemp.TextFrame.Characters.Text = shpTemp.Name

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

PBN wrote:
> ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 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