step1:
选中图片地址列
![](https://img-blog.csdnimg.cn/direct/978b1365b65e447b92ceef721be0cac3.png)
step2:开发工具→Visual Basic
![](https://img-blog.csdnimg.cn/direct/94f12c3a984c4e38806d403d4890cb7c.png)
文件→导入
![](https://img-blog.csdnimg.cn/direct/e29f8d571a304ca2853f8cffc21139ff.png)
导入我制作的脚本(代码见文章末尾)
![](https://img-blog.csdnimg.cn/direct/8a9c6533c7654d74b0f18a9377cb2c53.png)
点击excel的小图标回到表格界面。
![](https://img-blog.csdnimg.cn/direct/437d9dfce2954e189a3d098bb7ccb102.png)
点击【宏】
![](https://img-blog.csdnimg.cn/direct/e9c5b0df123348adbb7158d1053879c7.png)
选中刚才导入的脚本,点执行,等待完成。
![](https://img-blog.csdnimg.cn/direct/391bc1aae95c49879c06ffc14fe85621.png)
代码本体:
vbscript
Sub InsertPicturesFromURLs()
Dim rng As Range
Dim cell As Range
Dim picURL As String
Dim picShape As Shape
' 设置工作范围为选定单元格
Set rng = Selection
' 循环处理每个单元格
For Each cell In rng
' 获取当前单元格的图片URL
picURL = cell.Value
' 检查URL是否为空
If picURL <> "" Then
' 插入图片
Set picShape = ActiveSheet.Shapes.AddPicture(picURL, _
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
Left:=cell.Left, Top:=cell.Top, Width:=cell.Width, Height:=cell.Height)
End If
Next cell
End Sub