VBA 删除图片

tk21102

问题：我现在只要删除工作表中gif格式和jpg格式图片，原来在网上看到一个使用type=13的程序也是不能搞定，下面的程序也有缺陷，哪位高手可以帮忙解决？

Sub qp()
Dim shp As Object
For Each shp In ActiveSheet.Shapes
If shp.Type = msoOLEControlObject Then
Else
shp.Delete
End If
Next shp
End Sub
保留了控件，但画的流程图一起删除了，还有选择按钮什么的都没有了

Private Sub CommandButton3_Click() Dim shp As Object For Each shp In ActiveSheet.Shapes shp.Delete Next shp End Sub 删除所有图片啊什么的

xd3210

最好上传附件

tk21102

朱荣兴 发表于 2018-3-20 17:33
用picture属性，手机上网，只能给你个提示。

type=13，能删除JPG，Tif等格式图片，但gif格式删不了
Sub qp()
Dim shp As Object
For Each shp In ActiveSheet.Shapes
If shp.Type = 13 Then shp.Delete
Next shp
End Sub

tk21102

tk21102 发表于 2018-3-21 11:12
type=13，能删除JPG，Tif等格式图片，但gif格式删不了
Sub qp()
Dim shp As Object

刚才试了一下type=11，好像可以，你有属性大全吗

zopey

名称        值        说明
msoAutoShape        1        自选图形。
msoCallout        2        标注。
msoCanvas        20        画布。
msoChart        3        图。
msoComment        4        批注。
msoContentApp        27        内容的 Office 加载项
msoDiagram        21        图表。
msoEmbeddedOLEObject        7        嵌入的 OLE 对象。
msoFormControl        8        窗体控件。
msoFreeform        5        任意多边形。
msoGraphic        28        图形
msoGroup        6        组合。
msoIgxGraphic        24        SmartArt 图形
msoInk        22        墨迹。
msoInkComment        23        墨迹批注。
msoLine        9        线条
msoLinkedGraphic        29        链接的图形
msoLinkedOLEObject        10        链接 OLE 对象。
msoLinkedPicture        11        链接图片。
msoMedia        16        媒体
msoOLEControlObject        12        OLE 控件对象。
msoPicture        13        图片
msoPlaceholder        14        占位符
msoScriptAnchor        18        脚本定位标记。
msoShapeTypeMixed        -2        混和形状类型。
msoTable        19        表。
msoTextBox        17        文本框。
msoTextEffect        15        文字效果
msoWebVideo        26        Web 视频

tk21102

zopey 发表于 2018-3-21 11:39
名称        值        说明
msoAutoShape        1        自选图形。
msoCallout        2        标注。

非常感谢！

ab360

非常感谢。。

ab360

=13，2013,   32位，win7  是，可以完全删除GIF的。