EXCEL 里如何录制批量删除图片的 宏

hfdz1986

请教EXCEl home 里的大神，我是新手，按照论坛里已知道的方法  定位， 选择对象， 批量删除图片方法可行，可是这样删除了全部图片，可是把我的按钮也删除掉了。
有没有好的方法， 只删除图片 不删除对象。

山菊花

Sub 删除图片()
    Dim tp As Shape
    For Each tp In ActiveSheet.Shapes
        If tp.Type = 13 Then tp.Delete
    Next
End Sub

hfdz1986

{:soso_e113:} 成了， 谢谢楼上的 高手！！

hfdz1986

山菊花 发表于 2015-6-26 19:51
Sub 删除图片()
    Dim tp As Shape
    For Each tp In ActiveSheet.Shapes

你好，还在吗？
我现在遇到一个这样的问题， 我可以批量删除我自己手动添加的图片，可是我无法删除 ，用VBA 批量导入后的图片。  是什么原因吗

山菊花

看能不能给你帮助：

Sub 查看图片()
    Dim tp As Shape
    For Each tp In ActiveSheet.Shapes
        Debug.Print tp.TopLeftCell.Address & "：" & tp.Name & "，Type = " & tp.Type
    Next
End Sub

hfdz1986

山菊花 发表于 2015-6-26 21:09
看能不能给你帮助：

Sub 查看图片()

你好， 谢谢啊！
但是这条代码 执行
没有效果。

hfdz1986

这是我做的EXCEL 文件
我就是想要实现， 按下批量删除图片，把全部批量导入的图片删除， 按钮不会删除。
可是现在的语句无法实现。
我自己录制了宏， 可是会把图片和按钮都删除

求帮助

山菊花

hfdz1986 发表于 2015-6-26 22:23
你好， 谢谢啊！
但是这条代码 执行
没有效果。

这段宏代码名称叫查看图片，作用也是查看图片，因为看不到你的附件，不知道你的图片有什么特点，给你提个建议，用这段代码查看图片的Type，看能否解决问题。如果用Type不能，再想其它办法。程序的效果就是在立即窗口中显示各个图片的信息，不会没有效果的。如果你还没用过立即窗口，可按Ctrl+G打开它，或者用MsgBox代替Debug.Print也可。

插入到工作表中的按钮，如果是表单控件，Type=8，如果是ActiveX控件，Type=12，如果只保留按钮，也可将2楼的代码修改为：

1. Sub 删除图片()
   
2.     Dim tp As Shape
   
3.     For Each tp In ActiveSheet.Shapes
   
4.         If tp.Type <> 8 And tp.Type <> 12 Then tp.Delete
   
5.     Next
   
6. End Sub

复制代码

sicun419

请问如何删除一个excel工作簿中多个工作表同一个位置的图片