修改评论时如何触发宏？

Question

有没有办法在autosize=true中修改注释时触发一个宏来调整注释的大小(我不喜欢这样做)？我读到的所有内容都说注释更改不会触发任何类型的工作表更改事件。

Answer 1

你可以按照这些思路来做一些事情，它有点笨拙，因为现在还没有完全测试:)

Dim rPrev As Excel.Range
Dim sPrev As String
Dim cPrev As Comment

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not rPrev Is Nothing Then
    If Not cPrev Is Nothing Then
        cPrev.Shape.Width = Len(rPrev.Comment.Text) * 5
    End If
End If

Set rPrev = Target

If Not Target.Comment Is Nothing Then
    Set cPrev = Target.Comment
    sPrev = cPrev.Text
End If

End Sub