方法:用VBA
按Alt+F11,打开VBA编辑器,在代码窗口中粘贴下面的代码后运行即可。
Sub 恢复批注到默认位置()
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
With Cmt
.Shape.Top = .Parent.Top - 7.5
.Shape.Left = .Parent.Left + .Parent.Width + 11.25
End With
Next
End Sub
方法:用VBA
按Alt+F11,打开VBA编辑器,在代码窗口中粘贴下面的代码后运行即可。
Sub 恢复批注到默认位置()
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
With Cmt
.Shape.Top = .Parent.Top - 7.5
.Shape.Left = .Parent.Left + .Parent.Width + 11.25
End With
Next
End Sub