shapes textbox name..

P

PBN

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
 
A

Andy Pope

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
'-----------------
 
Top