1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub批量修改批注外型()Dim i As Integer, cell As Range, mystr As StringIf TypeName(Selection) <> "Range" Then MsgBox "请选择单元格!", 64, " 【友情提示】": Exit Sub '未选中单元格则退出On Error GoTo err '排错，当工作表中没有批注时会出错mystr=InputBox("输入批注外型" & Chr(10) & "1为口哨型,2为书卷型,3为箭头型" _& Chr(10) & "4为圆角矩形,5为缺角矩形,6为菱型,7为五角星.", "批注外型", 1, 10, 10) Application.ScreenUpdating=FalseFor Each cell In SelectionIf Not Application.Intersect(cell, Cells.SpecialCells(xlCellTypeComments)) Is Nothing ThenWith cell.Comment.Visible=True.Shape.Select TrueEnd WithWith Selection.ShapeRangeIf mystr=1 Then .AutoShapeType=msoShapeFlowchartSequentialAccessStorageIf mystr=2 Then .AutoShapeType=msoShapeFoldedCornerIf mystr=3 Then .AutoShapeType=msoShapeRightArrowIf mystr=4 Then .AutoShapeType=msoShapeRoundedRectangularCalloutIf mystr=5 Then .AutoShapeType=msoShapePlaqueIf mystr=6 Then .AutoShapeType=msoShapeDiamondIf mystr=7 Then .AutoShapeType=msoShape5pointStarcell.Comment.Visible=FalseEnd WithElsei=i+1End IfNextApplication.ScreenUpdating=TrueIf i=Selection.Count Then MsgBox "选区中没有批注！", 64, "提示"ActiveCell.Select: Exit Suberr: MsgBox "本工作表中没有批注！", 64, "提示"End Sub
5、选中任意区域，然后利用快捷键Alt+F8调出运行宏窗口，单击“执行”按钮，程序弹出输入对话框等待输入新批注样式编号
