当一个工作表中有多种Shape类型的时候，可以通过Shape.Type属性值返回一个代表形状类型的MsoShapeType数值。通过该数值可知该图形的类型。
列表如下
列表如下
| 名称 | 值 | 说明 |
| msoAutoShape | 1 | 自选图形。 |
| msoCallout | 2 |
新浪博客
标注。
举例如下
| msoCanvas | 20 | 画布。 |
| msoChart | 3 | 图。 |
| msoComment | 4 | 批注。 |
| msoDiagram | 21 | 图表。 |
| msoEmbeddedOLEObject | 7 | 嵌入的 OLE 对象。 |
| msoFormControl | 8 | 窗体控件。 |
| msoFreeform | 5 | 任意多边形。 |
| msoGroup | 6 | 组合。 |
| msoIgxGraphic | 24 | SmartArt 图形 |
| msoInk | 22 | 墨迹。 |
| msoInkComment | 23 | 墨迹批注。 |
| msoLine | 9 | 线条。 |
| msoLinkedOLEObject | 10 | 链接 OLE 对象。 |
| msoLinkedPicture | 11 | 链接图片。 |
| msoMedia | 16 | 媒体。 |
| msoOLEControlObject | 12 | OLE 控件对象。 |
| msoPicture | 13 | 图片。 |
| msoPlaceholder | 14 | 占位符。 |
| msoScriptAnchor | 18 | 脚本定位标记。 |
| msoShapeTypeMixed | -2 | 混和形状类型。 |
| msoTable | 19 | 表。 |
| msoTextBox | 17 | 文本框。 |
| msoTextEffect | 15 | 文本效果。 |
举例如下
- Sub 返回SmartArt总数()
- For Each shp In ActiveSheet.Shapes
If shp.Type = 24 Then i = i + 1 - Next
- MsgBox '共有 ' & i & ' 个SmartArt 图形'
- End Sub