excel中如何批量插入图片到对应列单元格？

 我来答

1个回答

#热议# 什么是淋病？哪些行为会感染淋病？

生赐简浦和
2019-10-16 · TA获得超过3832个赞

知道大有可为答主

回答量：3160

采纳率：34%

帮助的人：167万

我也去答题访问个人页

关注

展开全部

Sub
插入图片到单元格()
On
Error
Resume
Next
Dim
MR
As
Range
For
Each
MR
In
Selection

If
Not
IsEmpty(MR)
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
_

ActiveWorkbook.Path
&
"\pic\"
&
MR.Value
&
".jpg"

End
If
Next
End
Sub这个VBA能向未合并过的单元格插入图片并自动适应其大小，但遇到合并以后的单元格就不能适应其大小了有解决合并后填入并自适应答案，或对问题还有疑问，忘不吝转告兄弟一声
its@zj.com
tencent://message/?uin=39655677&Site=为了这一次的等待魂牵梦萦&Menu=yes－－－－－－－－
补遗：我想这个主题能满足大家的需要，具体方法是在EXCEL文件目录下新建一个名为PIC的文件夹用于存放JPG格式图片文件。在EXCEL文件中新建一个按钮并绑定以上宏代码，在需要插入图片的单元格填入图片文件的名称，不包括其后缀。之后选定填好名称的单元格，点按钮应用宏。