Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.
Sub TextBoxes_Add_ToCharts() '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) objTemp.Select Selection.Formula = "='" & chtTemp.Parent.Parent.Name & "'!Blue_Range_TextBox_" & Format(x, "00") x = x + 1 Loop ActiveCell.Select End Sub