[Rick Campbell]

I am trying to add a text box to all my charts. I want to move the text box
to the lower right corner. My macro keeps returning this error at the point
in the macro where the text box gets moved and re-shaped. Any help would be
greatly appreciated.

Option Explicit

Sub Copyright()

Dim chtobj As ChartObject
For Each chtobj In ActiveSheet.ChartObjects
With chtobj.Chart.TextBoxes.Add(131, 80, 86, 17)
.Select
.AutoSize = True
.Formula = "='12 Charts'!$O$2"
End With
Selection.ShapeRange.IncrementLeft 45.74
Selection.ShapeRange.IncrementTop 64.49
Selection.ShapeRange.ScaleHeight 0.73, msoFalse, msoScaleFromBottomRight
Next chtobj
End Sub

[Tom Ogilvy]

Sub aa_Tester9()
Dim chtobj As ChartObject
Dim tbox As TextBox
For Each chtobj In ActiveSheet.ChartObjects
Set tbox = chtobj.Chart.TextBoxes.Add(131, 80, 86, 17)
With tbox
.Select
.AutoSize = True
.Formula = "='12 Charts'!$O$2"
End With
With chtobj.Chart.Shapes(tbox.Name)
.IncrementLeft 45.74
.IncrementTop 64.49
.ScaleHeight 0.73, msoFalse, msoScaleFromBottomRight
End With
Next chtobj
End Sub


Worked for me.

Regards,
Tom Ogilvy

"Rick Campbell" wrote in message
rthlink.net...
I am trying to add a text box to all my charts. I want to move the text
box
to the lower right corner. My macro keeps returning this error at the
point
in the macro where the text box gets moved and re-shaped. Any help would
be
greatly appreciated.

Option Explicit

Sub Copyright()

Dim chtobj As ChartObject
For Each chtobj In ActiveSheet.ChartObjects
With chtobj.Chart.TextBoxes.Add(131, 80, 86, 17)
.Select
.AutoSize = True
.Formula = "='12 Charts'!$O$2"
End With
Selection.ShapeRange.IncrementLeft 45.74
Selection.ShapeRange.IncrementTop 64.49
Selection.ShapeRange.ScaleHeight 0.73, msoFalse,
msoScaleFromBottomRight
Next chtobj
End Sub

[Rick Campbell]

Thanks Tom! Works like a charm.

Rick

"Tom Ogilvy" wrote in message
...
Sub aa_Tester9()
Dim chtobj As ChartObject
Dim tbox As TextBox
For Each chtobj In ActiveSheet.ChartObjects
Set tbox = chtobj.Chart.TextBoxes.Add(131, 80, 86, 17)
With tbox
.Select
.AutoSize = True
.Formula = "='12 Charts'!$O$2"
End With
With chtobj.Chart.Shapes(tbox.Name)
.IncrementLeft 45.74
.IncrementTop 64.49
.ScaleHeight 0.73, msoFalse, msoScaleFromBottomRight
End With
Next chtobj
End Sub


Worked for me.

Regards,
Tom Ogilvy

"Rick Campbell" wrote in message
rthlink.net...
I am trying to add a text box to all my charts. I want to move the text
box
to the lower right corner. My macro keeps returning this error at the
point
in the macro where the text box gets moved and re-shaped. Any help would
be
greatly appreciated.

Option Explicit

Sub Copyright()

Dim chtobj As ChartObject
For Each chtobj In ActiveSheet.ChartObjects
With chtobj.Chart.TextBoxes.Add(131, 80, 86, 17)
.Select
.AutoSize = True
.Formula = "='12 Charts'!$O$2"
End With
Selection.ShapeRange.IncrementLeft 45.74
Selection.ShapeRange.IncrementTop 64.49
Selection.ShapeRange.ScaleHeight 0.73, msoFalse,
msoScaleFromBottomRight
Next chtobj
End Sub