如何在Excel中将图像URL转换为实际图像？

Sub URLPictureInsert() Dim Pshp As Shape Dim xRg As Range Dim xCol As Long On Error Resume Next Application.ScreenUpdating = False Set Rng = ActiveSheet.Range("A2:A5") For Each cell In Rng filenam = cell ActiveSheet.Pictures.Insert(filenam).Select Set Pshp = Selection.ShapeRange.Item(1) If Pshp Is Nothing Then GoTo lab xCol = cell.Column + 1 Set xRg = Cells(cell.Row, xCol) With Pshp .LockAspectRatio = msoFalse If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3 If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3 .Top = xRg.Top + (xRg.Height - .Height) / 2 .Left = xRg.Left + (xRg.Width - .Width) / 2 End With lab: Set Pshp = Nothing Range("A2").Select Next Application.ScreenUpdating = True End Sub

笔记： 

1.在上面的代码中， A2：A5 是包含您要提取图像的URL地址的单元格范围，则应根据需要更改单元格引用。 2.使用此代码，您将无法根据需要指定提取图像的大小。 3.上面的代码只能将实际图像提取到URL列之外的单元格中，您不能指定要输出图像的单元格。 4.您应该对代码有一些基本的了解，如果任何字符丢失或不正确，则代码将无法成功执行。

备注:申请这个 插入图片表格路径（URL），首先，您应该下载 Kutools for Excel，然后快速轻松地应用该功能。

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！