Results 1 to 3 of 3
  1. #1
    3 Star Lounger
    Join Date
    Jan 2001
    Location
    Adelaide, South Australia, Australia
    Posts
    387
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Moving Comments (2000)

    I inherited a spreadsheet with dozens of comments that have been dragged far from the cell they refer to, is it possible to write a macro that will restore them all to their default position adjacent to their cell?

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Moving Comments (2000)

    The following is a reasonable approximation:

    Sub ResetComments()
    Dim cmt As Comment
    For Each cmt In ActiveSheet.Comments
    cmt.Shape.Top = cmt.Parent.Top - 8
    cmt.Shape.Left = cmt.Parent.Left + cmt.Parent.Width + 11
    Next cmt
    End Sub

  3. #3
    3 Star Lounger
    Join Date
    Jan 2001
    Location
    Adelaide, South Australia, Australia
    Posts
    387
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Moving Comments (2000)

    Thank you Hans, that workks fine.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •