我在单元格注解中添加了一些行,所以我需要字体“CockyNew”。但我还需要一些更具体的设置,如字体和大小。
Sub SetCommants()
With Cells(4, 8)
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment
.Comment.Visible = False
.Comment.Text Cells(1, 3) & Chr(10) & Cells(1, 4) & Chr(10) & Cells(1, 5) & Chr(10) & Cells(1, 6)
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
字符串
我必须在代码中插入哪些行来设置字体?
1条答案
按热度按时间lawou6xi1#
字符串