如何利用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.运行完即将图片批量插入;

相关推荐
刘_sy6 小时前
使用EasyExcel和多线程实现高效数据导出
java·excel·easyexcel·批量导出excel
PowerBI学谦12 小时前
Copilot:Excel中的Python高级分析来了
python·excel·copilot
E-iceblue2 天前
Python 合并 Excel 单元格
python·excel·合并
sszdzq2 天前
Excel 合并列数据
excel
prince_zxill2 天前
Excel中不用复杂公式根据指定X列的数值N复制整行数据N行简单方法
excel
VBAMatrix3 天前
DeepSeek操作Excel,实现图表自动化生成
运维·自动化·excel·wps·deepseek
一醉千秋3 天前
excel中单元格字符串提取数字累加
excel
VB.Net3 天前
19.4.9 数据库方式操作Excel
数据库·c#·excel
真就死难3 天前
CSV格式和普通EXCEL格式文件的区别
linux·excel
朵朵zeng3 天前
Excel文件的读取
python·excel