With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
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