Add default Text Box on Chart

[JonesyUK]

Hi - I have a number of charts which each contains 2 OVAL objects.

I would like to add vba code to my macro which adds a text box underneath each oval with the text "YTD" in it(in bold).

Here's part of the code:

'Add the oval and rectangle shapes
Set shp = cht.Shapes.AddShape(msoShapeOval, 5, 5, 17, 17)
Set shp2 = cht.Shapes.AddShape(msoShapeRectangle, 130, 6, 14, 14)

shp.Name = chtObj.Name & "_shp"
shp2.Name = chtObj.Name & "_shp2"

'Default format
shp.Fill.ForeColor.RGB = RGB(255, 255, 255)
shp.Line.Weight = 2
shp.Line.ForeColor.ObjectThemeColor = msoThemeColorAccent1

Hope you can help....

Thanks,
Clint

 

[Sektor]

Before "gluing" a shape to chart, firstly select chart.