TheAntiGates
04-15-2008, 09:44 AM
To fix the "Cannot shift objects off sheet" problem I want to change all of a sheet's comments. I am weak with objects. I know I want to do
.Comment.Shape.Placement = xlMoveAndSize
but my problem is the object to apply this to and the For statement. Can you help?Sub Macro2()
Dim obj As Object
'Dim obj As Comment
On Error Resume Next
For Each obj In ActiveSheet.Shapes
obj.Comment.Shape.Placement = xlMoveAndSize
Next
End Sub
.Comment.Shape.Placement = xlMoveAndSize
but my problem is the object to apply this to and the For statement. Can you help?Sub Macro2()
Dim obj As Object
'Dim obj As Comment
On Error Resume Next
For Each obj In ActiveSheet.Shapes
obj.Comment.Shape.Placement = xlMoveAndSize
Next
End Sub