[Excel VBA] Shape.Type属性名称及对应值列表

当一个工作表中有多种Shape类型的时候，可以通过Shape.Type属性值返回一个代表形状类型的MsoShapeType数值。通过该数值可知该图形的类型。

列表如下：

举例如下：

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

原文地址：https://www.cnblogs.com/gongyanxu/p/12394037.html