当一个工作表中有多种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 |
文本效果 |
举例如下：
1 Sub 返回SmartArt总数() 2 For Each shp In ActiveSheet.Shapes 3 If shp.Type = 24 Then i = i + 1 4 Next 5 MsgBox "共有 " & i & " 个SmartArt 图形" 6 End Sub