如何判断shapes对象的具体类型？

aoe1981

比如插入了一组相片，又点击按钮将相片全部删除，结果连按钮也删除了。。。。。。。。。这个按钮是通过视图--工具栏----窗体中插入的。。。。。现在就想用这个做的按钮，也不想在控件工具箱中插入命令按钮。。。不知，该怎么办？
Sub sctp() '删除图片
Dim sh As Shape
For Each sh In Sheet1.Shapes
    sh.Delete
Next
End Sub

zhaogang1960

If sh.Type <> 8 And sh.Type <> 12 Then sh.Delete'排除按钮
或
If sh.Type=13 Then sh.Delete'只删除图片

aoe1981

zhaogang1960 发表于 2013-12-22 18:34
If sh.Type  8 And sh.Type  12 Then sh.Delete'排除按钮
或
If sh.Type=13 Then sh.Delete'只删除图片

只能用数字表示吗？不好记，该类型能不能输入相应的字母，比如13是不是就是picture。。。。。。。以及不知所有shapes的子类型是否有个列表或清单什么的，不知本论坛有无类似的科普贴。。。。多谢了

zhaogang1960

aoe1981 发表于 2013-12-22 18:43
只能用数字表示吗？不好记，该类型能不能输入相应的字母，比如13是不是就是picture。。。。。。。以及不知 ...

msoPicture=13

VBA帮助中有，好像更不太好记：

应用于 Shape 和 ShapeRange 对象的 Type 属性。

返回或设置图形类型。MsoShapeType 类型，只读。

MsoShapeType 可为以下 MsoShapeType 常量之一。
msoAutoShape
msoCallout
msoCanvas
msoChart
msoComment
msoDiagram
msoEmbeddedOLEObject
msoFormControl
msoFreeform
msoGroup
msoLine
msoLinkedOLEObject
msoLinkedPicture
msoMedia  不能与此属性一同使用。该常量与其他 Microsoft Office 应用程序中的图形一同使用。
msoOLEControlObject
msoPicture
msoPlaceholder  不能与此属性一同使用。该常量与其他 Microsoft Office 应用程序中的图形一同使用。
msoScriptAnchor
msoShapeTypeMixed
msoTable
msoTextBox
msoTextEffect

kuangben8

zhaogang1960 发表于 2013-12-22 18:57
msoPicture=13

VBA帮助中有，好像更不太好记：

还是没有明白图片类型，我现在插入的是CAD图形对应的图片，该图片类型是数字几呢？请教老师。