Sub test() ‘批注自适应大小
Dim rng As Range, cell As Range
Set rng = Selection.SpecialCells(xlCellTypeComments)
If Not rng Is Nothing Then
For Each cell In rng
cell.Comment.Shape.TextFrame.AutoSize = True
Next
Set rng = Nothing
End If
End Sub
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。