Below macro places a text box (contents are named ranges) into each and every chart of the active worksheet.
The macro runs just fine.
There is one problem: I got no idea how to DELETE ONLY these text boxes that were created by running below macro and leave all other possible text boxes (data labels) or ordinary' text boxes located outside the chart alone.
I have attached a sample file with below code integrated for your convenience.
Help is much appreciated. Thank you very much in advance.
'Add text box
'You can assign the result of the AddTextbox method to a Shape object variable and manipulate its Top, Left,
'Height and Width properties
'1. Value = Left property
'2. Value = Top property
'3. Value = Width property
'4. Value = Height property
Dim chtTemp As Chart
Dim objTemp As Object
Dim x As Integer
x = 1
Do While x <= ActiveSheet.ChartObjects.Count
Set chtTemp = ActiveSheet.ChartObjects(x).Chart
Set objTemp = chtTemp.Shapes.AddTextBox(msoTextOrientationHorizontal, 285, 171, 135, 20)
Selection.Formula = "='" & chtTemp.Parent.Parent.Name & "'!Blue_Range_TextBox_" & Format(x, "00")
x = x + 1