本示例显示区域总图形的个数。
MsgBox Selection.ShapeRange.Count