Option Explicit

Sub addtext()
Dim ch As ChartObject
Set ch = Sheet1.ChartObjects(1)
With ch.Chart.TextBoxes.Add(193, 121, 26, 14)
.Select
.AutoSize = True
.Text = "hello"
End With
End Sub


"DHB7" wrote in message
...
I've a textbox I wish to fill programmatically on a chart. I can get to
the
Shape object I need and when viewing this in the locals window there's a
DrawingObject property which you cannot get at via VBA. If I can get a
hold
of this object I can change the text, but I just cannot find a way of
procuring an appropriate object!