Excel2007中如何使用VBA代码设置批注的形状？-excel2007密钥

看到朋友问，如何在EXCEL2007中将批注的方框设置成其它形状，在此提供一个VBA方法。

1、右键点击工作表标签，选择“查看代码”，将下面的代码粘贴到光标处：

1. Sub 修改批注()
2. Dim m%
3. m = Application.InputBox("请输入图形代码(1-137)：", "改变自选图形", 1, Type:=1)‘调用INputbox函数
4. On Error Resume Next’如果有错误继续运行
5. With ActiveCell
6. .AddComment‘添加备注
7. .Comment.Shape.AutoShapeType = m’设置备注形状
8. End With
9. End Sub

2、返回Excel窗口，点击“开发工具”选项卡，点击“宏”按钮，在新窗口中选择“修改批注”宏，点击“选项”按钮。

3、另可为为宏设置快捷键(Ctrl+d)，当然这个快捷键是自己随便设置的。

如果功能区中没有“开发工具”选项卡，可在Excel选项中设置。

设置完毕后，选择包含批注的单元格，按Ctrl+d运行程序。