Excel 批量插入图片 VBA代码

在要插入图片的文件夹里新建一个Excel文件，打开这个Excel文件，在要插入图片的单元格里填上图片文件名（不要扩展名），选中要插入图片的单元格，修改单元格的大小以显示所需要的图片大小，运行宏代码。

1、Alt+F11调取VBA编辑窗口，查看代码，将以下代码全部复制进去；

2、关闭VBA窗口，Excel-视图-宏-查看宏；

3、Book1.xls!Sheet1.insertPic，选中所要插入图片的单元格，执行；

4、图片自动插入对应的单元格中。（图片尺寸均可通过单元格大小进行调解，边框可设置）

代码如下：

Sub insertPic()

' Dir函数批量获取指定目录下所有文件名和内容
On Error Resume Next
Application.ScreenUpdating = False '关闭屏幕更新
Dim MR As Range
For Each MR In Selection
If Not IsEmpty(MR) And Dir(ActiveWorkbook.Path & "\&; & MR.Value & ".jpg") <> "" Then

该文章内容来源于网络，由强国说-WPS之家(wps.qiangguoshuo.com)收集，希望能为您提供帮助。

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 _
ActiveWorkbook.Path & "\&; & MR.Value & ".jpg" '当前文件所在目录下以当前单元内容为名称的.jpg图片
End If
Next
Set MR = Nothing
Application.ScreenUpdating = True '开启屏幕更新
End Sub

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/16635.html