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

相关推荐
Channing Lewis1 天前
excel如何只保留前几行
excel
wtsolutions1 天前
Excel to JSON API by WTSolution Documentation
json·excel·api·wtsolutions
星沙丘秋2 天前
Kettle导入Excel文件进数据库时,数值发生错误的一种原因
excel
Tomorrow'sThinker2 天前
✍️ Python 批量设置 Word 文档多级字体样式(标题/正文/名称/小节)
python·自动化·word·excel
大虫小呓2 天前
50个Python处理Excel示例代码,覆盖95%日常使用场景-全网最全
python·excel
禁默2 天前
Linux Vim 编辑器详解:从入门到进阶(含图示+插件推荐)
linux·vim·excel
Tomorrow'sThinker3 天前
[特殊字符] Python 批量生成词云:读取词频 Excel + 自定义背景 + Excel to.png 流程解析
python·excel
UrbanJazzerati3 天前
Excel 使用中的“坑”:拆分与合并列的陷阱及解决方案
excel
KeThink4 天前
国民经济行业分类 GB/T 4754—2017 (PDF和exce版本)
pdf·excel
_oP_i4 天前
Excel 的多线程特性
excel