如何找出透明的图片并删除

XUYUJING2007

Book1.rar (83.29 KB, 下载次数: 26)

2018-9-30 10:52 上传

点击文件名下载附件

如图左边的图片要删掉，要怎么写代码

wuliaolang

只会删除所有图片

1. For Each sp In ActiveSheet.Shapes
   
2. If sp.Type = msoPicture Then sp.Delete
   
3. Next

复制代码

alstar

你这个不是图片。属于无边框的矩形。
试试用这种方法吧。

1. Sub 删()
   
2. For Each s In ActiveSheet.Shapes
   
3.     If TypeName(s.DrawingObject) <> "Picture" Then
   
4.         s.Delete
   
5.     End If
   
6. Next
   
7. End Sub

复制代码

XUYUJING2007

alstar 发表于 2018-9-30 11:56
你这个不是图片。属于无边框的矩形。
试试用这种方法吧。

删不掉，要删就全删了，我要留图片的

alstar

XUYUJING2007 发表于 2018-9-30 14:07
删不掉，要删就全删了，我要留图片的

我测试了啊。只把那个透明的删了。图片没删啊。。

1. Sub 删()
   
2. For Each s In ActiveSheet.Shapes
   
3.     If Not TypeName(s.DrawingObject) Like "Picture*" And Not TypeName(s.DrawingObject) Like "图片*" Then
   
4.         s.Delete
   
5.     End If
   
6. Next
   
7. End Sub

复制代码

XUYUJING2007

alstar 发表于 2018-9-30 14:46
我测试了啊。只把那个透明的删了。图片没删啊。。

TYPENAME都是SHAPE

lsdongjh

1. Sub Test()
   
2.     Dim sh As Shape
   
3.     For Each sh In Shapes
   
4.         If sh.Type <> 13 Then sh.Delete
   
5.     Next
   
6. End Sub

复制代码

alstar

lsdongjh 发表于 2018-9-30 17:01

sh.Type <> 13  这个语句好像不通用吧。。我好像在论坛上看到过。13 10跟07的值不一样？

lsdongjh