批量插入图片到单元格VBA代码

Sub插入图片到单元格()OnErrorResumeNextDimMRAsRangeForEachMRInSelectionIfNotIsEmpty(MR)ThenMR.SelectML=MR.LeftMT=MR.TopMW=MR.WidthMH=MR.HeightActiveSheet.Shapes.AddShape(msoShapeRectangle,ML,MT,MW,MH).SelectSelection.ShapeRange.Fill.UserPicture_ActiveWorkbook.Path&\pic\&MR.Value&.jpgEndIfNextEndSub这个VBA能向未合并过的单元格插入图片并自动适应其大小，但遇到合并以后的单元格就不能适应其大小了有解决合并后填入并自适应答案，或对问题还有疑问，忘不吝转告兄弟一声[e-mail]://message/?uin=39655677&Site=为了这一次的等待魂牵梦萦&Menu=yes－－－－－－－－补遗：我想这个主题能满足大家的需要，具体方法是在EXCEL文件目录下新建一个名为PIC的文件夹用于存放JPG格式图片文件。在EXCEL文件中新建一个按钮并绑定以上宏代码，（上面代码）在需要插入图片的单元格填入图片文件的名称，不包括其后缀。之后选定填好名称的单元格，点按钮应用宏。练习后：提前插入一张图片，点击图片右键选择——属性——设置自选图形格式——大小、位置随单元格而变化，即可，操作一次，以后，选择激活单元格，按F4即可