本示例显示当前工作表的对象个数。
MsgBox ActiveSheet.Shapes.Count