Change property of comments only

[Guest]

Hi there,

I'd like to change property of comments only with a macro. The code in

http://support.microsoft.com/default.aspx?scid=kb;en-us;211769

is changing the property of all objects in the sheet.

Does anyone know if this is possible.

 

[Tom Ogilvy]

What property do you want to change and do you want to change all comments
or just one comment?

 

[Guest]

Hi Tom,

Sorry I was not clear enough. I want to change all comments to xlMove.
--
Regards,

Martin

What property do you want to change and do you want to change all comments
or just one comment?

 

[Tom Ogilvy]

Sub abcd()
For Each cmt In ActiveSheet.Comments
cmt.Shape.Placement = xlMove
Next
End Sub

--
Regards,
Tom Ogilvy

Hi Tom,

Sorry I was not clear enough. I want to change all comments to xlMove.

 

[Guest]

Brilliant, thanks a lot.
--
Regards,

Martin

Sub abcd()
For Each cmt In ActiveSheet.Comments
cmt.Shape.Placement = xlMove
Next
End Sub