码迷,mamicode.com
首页 > 编程语言 > 详细

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

时间:2020-03-02 10:51:27      阅读:769      评论:0      收藏:0      [点我收藏+]

标签:soa   cell   canvas   art   一个   图片   sheet   script   border   

当一个工作表中有多种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

 

 

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

标签:soa   cell   canvas   art   一个   图片   sheet   script   border   

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

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!