[已解决]VBA代码删除特定图片问题

chmmm

对图片对象不是很清楚，所以上来向大家求助。我想删除除了某张图片以外的图片（那张图片是固定名称和位置的），貌似没有shape.name属性？求各位高手帮助，谢谢。[url=]test.zip[/url]

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-30 18:20

直接用名字相匹配删除吧。
遍历shapes集合。

跳转到最佳答案楼层

爱疯

1. Sub a()
   
2.     Dim x
   
3.     For Each x In ActiveSheet.DrawingObjects
   
4.         If x.Name <> "Picture 1" Then x.Delete
   
5.     Next
   
6. End Sub

复制代码

chenzhi_juan

1. Sub 显示所有图形()
   
2. Dim sp As Shape
   
3. For Each sp In ActiveSheet.Shapes
   
4.    Debug.Print sp.Name
   
5. Next
   
6. End Sub
   
7. 
   
8. Sub 删除指定图形()
   
9.   Dim sp As Shape
   
10.   For Each sp In ActiveSheet.Shapes
    
11.     If sp.Name <> "Picture 1" And InStr(sp.Name, "Rectangle") = 0 Then
    
12.       sp.Delete
    
13.     End If
    
14.   Next
    
15. End Sub

复制代码

我的思路是你先显示所有的控件或者图形名称，再根据找到的名称进行删除。当然，如果你知道你所插入图形或者控件的名称就不需要走第一步了。

殿堂之上

1. Sub a()
   
2. Dim str
   
3. str = "Picture 1"
   
4. For Each f In ActiveSheet.Shapes
   
5. <span style="line-height: 1.5;">If f.Type = 13 Then</span>
   
6. If f.Name <> str Then
   
7. f.Delete
   
8. End If
   
9. End If
   
10. Next
    
11. End Sub
    

复制代码

你可以点附件中的控件1看下

hwc2ycy

直接用名字相匹配删除吧。
遍历shapes集合。

chmmm

hwc2ycy 发表于 2013-7-30 18:20
直接用名字相匹配删除吧。
遍历shapes集合。

恩，可以了。谢谢。

chmmm

爱疯 发表于 2013-7-30 17:33

不好意思，先看到最后一个了。已经解决，谢谢。

chmmm

chenzhi_juan 发表于 2013-7-30 17:35
我的思路是你先显示所有的控件或者图形名称，再根据找到的名称进行删除。当然，如果你知道你所插入图形或者 ...

感谢分享思路。

chmmm

殿堂之上 发表于 2013-7-30 18:11
你可以点附件中的控件1看下

麻烦你了，已解决，谢谢。