批注框的长宽调整，谢谢liulang0808、杨建营、tanglf188、准提部林老师

准提部林

Sub Macro1()
With Range("G1")
     .NoteText "ai:" & Chr(10) & "123"
     With .Comment.Shape
          .Width = 100
          .Height = 30
     End With
End With
End Sub

lhj323323

liulang0808 发表于 2022-12-2 22:36
供楼主参考，是不是所谓的版本会有影响的

那可能真是EXCEL版本的问题。
谢谢老师，我去找另一版本来安装。

另
您那个gif的录制是用什么软件生成的？

lhj323323

杨建营 发表于 2022-12-2 21:10
Sub test()
    Dim cwidth As Long
    Dim strcom As String

谢谢杨老师，测试成功了！

lhj323323

tanglf188 发表于 2022-12-2 22:53
Sub Macro1()
    Range("G1").Select
    Selection.ClearComments

感谢tanglf188老师，测试成功了。

lhj323323

准提部林 发表于 2022-12-2 23:00
Sub Macro1()
With Range("G1")
     .NoteText "ai:" & Chr(10) & "123"

这是最简洁有效的了，且不受该单元格是否已有批注的限制。
多谢老师！