Global Change COmments Properties (XP 5.1)

Topic

New Reply

I have a spreadsheet with numerous comments that I did not set the properties correctly (move but dont size) as I created them. Is there a way of globally changing the comments to ‘move but dont size with cells’.

Reply | Quote

Replies

When you say “Comment” do you mean something like an AutoShape (which can be adjusted to move and size with cells or not).

If you mean AutoShape, then try something like:

dim oShape as Object
For each oShape in Sheet1
oShape.Placement = xlFreeFloating
Next

Paul

Reply | Quote

Comment is the ‘note’ that you can stick in a cell (Insert-Comment).

Reply | Quote

Sorry,
I was thrown off by the “Move but don’t size with cells” and was unaware of the ability to do this with COMMENTS.

Now that I have figured out that this is accessible manually with INSERT — EDIT COMMENT — FORMAT –COMMENT
I tried the position settings. I see that the comment SIZE will change with the cell (if checked) but I am
unable to see any difference in the MOVE part whether the button is checked or not.

Can you explain this? Doesn’t a comment ALWAYS move with a cell — unlike a drawing object like an AutoShape?
This is what threw me off at first.

Paul

Reply | Quote

Sorry, in the time I have available I cannot seem to tie down the property.

Reply | Quote

Sorry, in the time I have available I cannot seem to tie down the property.

Reply | Quote

Sorry,
I was thrown off by the “Move but don’t size with cells” and was unaware of the ability to do this with COMMENTS.

Now that I have figured out that this is accessible manually with INSERT — EDIT COMMENT — FORMAT –COMMENT
I tried the position settings. I see that the comment SIZE will change with the cell (if checked) but I am
unable to see any difference in the MOVE part whether the button is checked or not.

Can you explain this? Doesn’t a comment ALWAYS move with a cell — unlike a drawing object like an AutoShape?
This is what threw me off at first.

Paul

Reply | Quote

Comment is the ‘note’ that you can stick in a cell (Insert-Comment).

Reply | Quote

This should do it for every comment in the workbook.

Steve

Sub AllCommentsMoveNoSize()
    Dim wks As Worksheet
    Dim cmt As Comment
    
    For Each wks In Worksheets
        For Each cmt In wks.Comments
            cmt.Shape.Placement = xlMove
        Next
    Next
End Sub

Reply | Quote