EXCEL从图片链接获取图片

step1:

选中图片地址列

step2:开发工具→Visual Basic

文件→导入

导入我制作的脚本(代码见文章末尾)

点击excel的小图标回到表格界面。

点击【宏】

选中刚才导入的脚本,点执行,等待完成。

代码本体:

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
相关推荐
Smilecoc13 小时前
excel单、双字节字符转换函数(中英文输入法符号转换)
excel
Terry_trans13 小时前
工作中遇到的EXCEL小问题:多行有间隔符的合并
excel
舊時王謝堂前燕13 小时前
Vue2+Element实现Excel文件上传下载预览【超详细图解】
excel
如意机反光镜裸15 小时前
一键导出数据库表到Excel
数据库·excel·导出
XMYX-017 小时前
用Python3脚本实现Excel数据到TXT文件的智能转换:自动化办公新姿势
python·自动化·excel
graphyer18 小时前
Google sheet 复制excel内容自动合并单元格问题
excel·google sheet
如意机反光镜裸18 小时前
批量导出数据库表到Excel
数据库·excel·批量导出
老胖闲聊1 天前
Python在实际工作中的运用-通用格式CSV文件自动转换XLSX
python·excel
运维技术小记1 天前
升级Office软件后,Windows 系统右键里没有新建Word、Excel、PowerPoint文件的解决办法
windows·word·excel
Stestack1 天前
Python 给 Excel 写入数据的四种方法
前端·python·excel