本示例显示区域总图形的个数。

MsgBox Selection.ShapeRange.Count