Excel 怎样让照片粘贴到对应到电子表格中

Excel 怎样让照片粘贴到对应到电子表格中

一种是插入图片，就是打开excel，然后插入图片即可
另一种是使用vba来实现，根据具体图片与表格的对应关系进行插入

有一种方法是把图片的名称改成 单元格的内容 比如 单元格里是 数值代码 123 那么图片的名字也是123 用宏 sub 贴图片() set fd = application.filedialog(msofiledialogfolderpicker) '允许用户选择一个文件夹 if fd.show = -1 then t = fd.selecteditems(1) '选择之后就记录这个文件夹名称 else exit sub '否则就退出程序 end if 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 _ path_str & mr.value & ".jpg" end if next end sub 可以直接进行批量的导入图片 并且图片大小于单元格一致