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

推荐回答

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