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

lhj323323

老师：


运行一段录制的语句，却仍要报错，不知该怎么搞。


老师如有空，请帮忙看看，先谢谢了
求助.rar (14.35 KB, 下载次数: 9)

2022-12-2 06:06 上传

点击文件名下载附件

杨建营

请楼主参考。

liulang0808

看看是否可行吧。。。。

lhj323323

liulang0808 发表于 2022-12-2 07:48
看看是否可行吧。。。。

老师：

运行后，仍是报错，请看图

lhj323323

杨建营 发表于 2022-12-2 07:34
请楼主参考。

谢谢老师，但老师提供的xlsx格式，我打不开。
能否直接提供源码。

杨建营

lhj323323 发表于 2022-12-2 20:01
谢谢老师，但老师提供的xlsx格式，我打不开。
能否直接提供源码。

Sub test()
    Dim cwidth As Long
    Dim strcom As String
    strcom = Range("a1").Value
    Range("g12").Select
    With Range("g12")
        If .Comment Is Nothing Then
            MsgBox "没有批注！", 16
            .AddComment Text:=strcom
            .Comment.Visible = False
        Else  '已经有备注则备注添加内容
            .Comment.Text Text:=strcom
        End If
     
      With .Comment.Shape
            .TextFrame.Characters.Font.Size = 12 '设置字体大小
            .TextFrame.AutoSize = True
'             If .Width > 250 Then
'                cwidth = .Width * .Height
'                .Width = 150
'                .Height = (cwidth / 200) * 1.8
'             End If
        End With
   
    End With
End Sub
请根据自己的需求修改。

liulang0808

lhj323323 发表于 2022-12-2 20:00
老师：

运行后，仍是报错，请看图

如果都有批注了，再添加肯定报错啊

lhj323323

liulang0808 发表于 2022-12-2 21:58
如果都有批注了，再添加肯定报错啊

应该不是这个原因，我在测试时，把那个单元格的批注取消了的。

liulang0808

lhj323323 发表于 2022-12-2 22:22
应该不是这个原因，我在测试时，把那个单元格的批注取消了的。

供楼主参考，是不是所谓的版本会有影响的

tanglf188

Sub Macro1()
    Range("G1").Select
    Selection.ClearComments
    Range("G1").AddComment
    Range("G1").Comment.Visible = False
    Range("G1").Comment.Text Text:="ai:" & Chr(10) & "123"
    Selection.Comment.Shape.Width = 250
    Selection.Comment.Shape.Height = 150
End Sub

宏录制的代码吧，好像是有点问题，帮你修改了一下