How to set the text in a textbox in a chart object with VBA?

[DHB7]

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!

 

[Patrick Molloy]

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