本示例显示当前工作表的对象个数。

MsgBox ActiveSheet.Shapes.Count