怎样在代码中设置批注的字体

shzrh

请问在以下的代码中,怎样使批注的字体 SIZE=14, 多谢

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    
    Range("a:aa").ClearComments '清除全部批注

    If ActiveCell.Column = 3 And 16 >= ActiveCell.Row <= 35 Then  '指定在 C列(3)的16行到35行内

    Set c = Sheets("辅料价格清单").Range("d:d").Find(Cells(ActiveCell.Row, ActiveCell.Column), lookat:=xlWhole)
    '在表："辅料价格清单" 中查找选中的单元格内容，返回在单元格位置
   

    If Not c Is Nothing Then '如果在表：设备名称型号 中有此内容

    ActiveCell.NoteText "供应商代码：  " & Sheets("辅料价格清单").Cells(c.Row, 2).Value & Chr(10) & "辅料名称：  " & Sheets("辅料价格清单").Cells(c.Row, 3).Value & Chr(10) & "单价：  " & Sheets("辅料价格清单").Cells(c.Row, 5).Value  '添加内容为”“的批注 
    ActiveCell.Comment.Visible = True '显示此批注 
           
   End If
End Sub

山菊花

With ActiveCell.Comment
        .Shape.TextFrame.Characters.Font.Name = "黑体"
        .Shape.TextFrame.Characters.Font.Size = 14
        .Visible = True '显示此批注
    End With

山菊花

另外的问题：

1、建议用Target代替ActiveCell。

2、下面一句写法有毛病：

If ActiveCell.Column = 3 And 16 >= ActiveCell.Row <= 35 Then  '

修改为：
If Target.Column = 3 And Target.Row >= 16 And Target.Row <= 35 Then

shzrh

谢谢指教