reset comment anchor when editing...

[sadams1]

I've got the following code to reset the position when hovering over a comment:


Sub ResetComments()
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
pComment.Shape.Top = pComment.Parent.Top + 5
pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub



However, when hovering over a comment, then right-clicking to "edit comment", the comment box jumps across the screen.
Is is possible to reset this editing part to keep it in the same position as when just hovering over it?

Thanks!
Steve

 

[StephenCrump]

It's not clear how you're calling ResetComments, or how you (presumably) put the comments back in their correct places. (And also why you loop through all comments, rather than just move the one you're hovering over).

There may be other ways to approach it, depending on how you've coded it, but I'd suggest first trying to use the Worksheet_BeforeRightClick event to temporarily keep the comment in position for editing?