如何利用EXCEL批量插入图片

目录

1.excel打开目标表格;

2.点开视图-宏-录制宏,可以改宏的名字或者选择默认;

3.然后点开视图-宏-查看宏

4.点编辑进去

5.修改代码:

(1)打开之后会显示有一堆代码

(2)将这个代码只要改地址直接贴到步骤(1)的模块代码

6.同时将代码放在txt文档,并放在图片所在文件夹;

7.插入图片:在excel修改插入图片的名字,和目标图片名字一致;然后选择目标图片名并点击"查看宏",再点击"执行"运行;

8.运行完即将图片批量插入;


1.excel打开目标表格;

2.点开视图-宏-录制宏,可以改宏的名字或者选择默认;

3.然后点开视图-宏-查看宏

4.点编辑进去

5.修改代码:

(1)打开之后会显示有一堆代码

(2)将这个代码只要改地址直接贴到步骤(1)的模块代码

(3)呈现如图

复制代码
Sub 批量插图()
On Error Resume Next
Application.ScreenUpdating = False
Dim MR As Range,sPath As String
sPath = "D:\临时" '设置图片位置
For Each MR In Selection
If Not IsEmpty(MR) And Dir(sPath & "\" & MR.Value & ".jpg") <> "" Then
MR.Select
ML = MR.Left
MT = MR.Top
MW = MR.Width
MH = MR.Height
ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
Selection.ShapeRange.Fill.UserPicture _
sPath & "\" & MR.Value & ".jpg"
End If
Next
Set MR = Nothing
Application.ScreenUpdating = True
End Sub

6.同时将代码放在txt文档,并放在图片所在文件夹;

7.插入图片:在excel修改插入图片的名字,和目标图片名字一致;然后选择目标图片名并点击"查看宏",再点击"执行"运行;

8.运行完即将图片批量插入;

相关推荐
CodeCraft Studio21 小时前
Excel处理控件Aspose.Cells教程:使用 Python 将 Pandas DataFrame 转换为 Excel
python·json·excel·pandas·csv·aspose·dataframe
星空的资源小屋1 天前
PPTist,一个完全免费的 AI 生成 PPT 在线网站
人工智能·python·电脑·excel
开开心心_Every1 天前
免费语音合成工具:66种音色随心选
人工智能·面试·java-ee·计算机外设·电脑·maven·excel
偷心伊普西隆2 天前
EXCEL VBA 清空Excel工作表(Sheet)的方法
microsoft·excel
Coding_Doggy2 天前
苍穹外卖Day12 | Apache POI、导出Excel报表、HttpServletResponse、工作台
excel
l1t3 天前
张泽鹏先生手搓的纯ANSI处理UTF-8与美团龙猫调用expat库读取Excel xml对比测试
xml·人工智能·excel·utf8·expat
Source.Liu3 天前
【Python自动化】 21 Pandas Excel 操作完整指南
python·excel·pandas
会飞的小菠菜3 天前
如何根据Excel数据表生成多个合同、工作证、录取通知书等word文件?
word·excel·模板·数据表·生成文件
Access开发易登软件4 天前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表4 天前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量