Excel VBA 之 图片网址批量转成图片(二)


Excel VBA 之 图片网址批量转成图片(二)

紧接上文,或许有些网友会发现,用上文的方法添加的图片,其实是链接,每次打开文档的时候,会重新从网上加载图片,这个过程可能会有点慢。而且,当我们在没有网络的情况下打开文档,会发现图片无法加载


Excel VBA 之 图片网址批量转成图片(二)

图片无法显示

那么这时候我们就需要将图片变成我们本地的,这样每次打开文档的时候就无需从网上加载,没有网络的时候也能正常查看文档

我们只需要添加如下一段代码

<code>Selection.Copy'复制添加的网络图片
Selection.Delete'删除添加的网络图片
Set myPic = ActiveSheet.Pictures.Paste'粘贴成本地图片
myPic.Select'选中本地图片进行下面的操作/<code>

这样,我们的文档就完成了!

细心的网友或许会发现,这样文档大小会变大很多,这是正常的。因为文档里保存的是我们下载到本地的图片,文档大小则包含了图片大小,图片越多,文档越大。而原来的文档,仅仅保存了图片的地址,在打开文档的时候才加载图片,所以文档大小就小很多。这两种方法各有优缺点,大家可以根据自己的需求决定用哪种方法。

全部代码如图:(黄色部分是这次添加的代码)


Excel VBA 之 图片网址批量转成图片(二)

代码全貌

在Excel中遇到问题都可以找我交流一下,喜欢的朋友记得点赞关注,以后不定期更新Excel VBA技巧!


分享到:


相關文章: