Excel VBA 7.77批量插入图片好嗨!但是删除又是问题!没有办法全选!
批量插入图片好嗨!但是删除又是问题!没有办法全选!
点击上方“Excel和VBA”,选择“置顶公众号”
致力于原创分享Excel的相关知识,源码,源文件打包提供
一起学习,一起进步~~
昨天我们分享了如何通过VBA来批量插入图片的方法,相信很多的小伙伴们也是瞬间都开心了一把吧,原来需要一张张插入然后在手工进行大小修改的工作,现在只需要交给VBA,几秒钟就可以解决了,老板让我们做的产品数据图,再也不是问题了,不过虽然插入图片的问题解决了,但是删除图片的问题还没有解决啊,有小伙伴马上想到了这个问题,毕竟图片没有办法通过鼠标全选啊,只能一个个的选,而且有时候可能完全不知道图片放在那里了,怎么选呢?还是需要一个快速删除图片的方法。
场景说明
其实很多的小伙伴肯定会有我选中其中一个图片之后,就可以全选了,我们来看看下面的场景。
那么直接进入正题
代码区
Sub 删除图片()
Dim pc As Shape
For Each pc In ActiveSheet.Shapes
pc.Delete
Next pc
End Sub
删除所有图片的方法只有那么几行,非常的简单,来看看效果。
当然这里为了演示的方便,我们先将所有的文字删除,然后只保留图片,并且在一些我们看不到的地方也放置一些图片。
在AA列也有图片的,我们来看看代码操作的结果
成功的实现了我们的效果。
代码解析
相对于昨天的长篇大论,今天就非常的简单了,删除图片的方法也是非常的简单
shapes代表了就是Excel中所有的图片的集合,他自身也有一个删除图片的方法,就是shape.delete
我们今天使用的就是这个方法,非常的方便简单
只需要在程序开始之前将某一个变量声明为图片即可。
==========================
本节课的案例源码已经上传,需要的小伙伴后台私信“7-77-Q8”,希望大家多支持~~,多多关注 ~ ~
好了,明晚21:00,准时再见!
因为公众号没有留言功能(开的比较晚),所以建立一个线下微信群,主要为大家提供一个交流的平台,同时大家也可以提一些对公众号的意见和看法,大家一起学习,一起进步。