Excel VBA 之 图片网址批量转成图片（一）

我们平时在使用Excel的时候经常会遇到这种情况，在表格里存了一大堆图片的网址，不能直接看到图片的缩略图，需要查看的话就得一个个网址复制，再粘贴到浏览器查看，着实很不方便，尤其对一些网店卖家来说更是头疼。今天介绍下如何用Excel Vba实现批量将图片网址转换成缩略图。

假设，图片地址在当前sheet的E列。那么我们遍历sheet的E列，获取图片地址，代码如下

<code>For i = 2 To [E65536].End(xlUp).Row
    picUrl = Cells(i, "E")
    '下载图片代码，往下看
Next/<code>

然后将获取到的图片地址下载并插入Sheet中，代码如下

<code>ActiveSheet.Pictures.Insert("http:" & picUrl).Select/<code>

接着调整图片尺寸、位置

<code>With Selection.ShapeRange
    .LockAspectRatio = msoFalse
    .Top = Range("E" & i).Top
    .Left = Range("E" & i).Left
    .Width = Range("E" & i).Width
    .Height = Range("E" & i).Height
End With
Selection.Placement = xlMoveAndSize '图片大小和位置随单元格而变/<code>

我们还可以按需要再添加一段用来一键删除Sheet中所有图片的代码

<code>Sub ClearData()
    Dim i%
    Dim pic As Shape
    On Error Resume Next
    For Each pic In ActiveSheet.Shapes
        If pic.FormControlType <> xlButtonControl Then pic.Delete'删除除按钮之外的Shape（也就是我们刚刚下载的图片）
    Next
End Sub/<code>

最后我们看一下效果

最终效果

全部代码如图：

代码全貌

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

閱讀更多 VBA編程開發 的文章

關鍵字: 浏览器 Excel 网址