选中批注的连框,当出现黑色十字时,按住左健不放,一直拉就行了
在“审阅”中选择“显示所有批注”
想拉长批注线,直接把批注文本框拉远即可。
2007版,审阅菜单—点击“显示所有批注”按钮
Sub CommentPittariMove()
Application.ScreenUpdating = False
Dim myRng As Range
'1
For Each myRng In Range("A1").SpecialCells(xlCellTypeComments)
'2
With myRng.Comment.Shape
.Left = myRng.Offset(, 1).Left
.Top = myRng.Offset(, 1).Top
.Placement = xlMove
End With
Next
Application.ScreenUpdating = True
End Sub