本示例显示活动工作表中批注的个数。
MsgBox ActiveSheet.Comments.Count