Question

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

Answer 1

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文件中新建一个按钮并绑定以上宏代码，在需要插入图片的单元格填入图片文件的名称，不包括其后缀。之后选定填好名称的单元格，点按钮应用宏。

Answer 2

使用<table><img src="G:\照片\1213287.jpg">,几分钟完成成百上千的插入。qq:381032017