Ready to get started with anonymous questions today? It's easy! Learn more.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.