随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA在工作表单元格中批量插入图片？
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Subinsertpic()DimiAs诔罨租磊IntegerDimfilpathAsStringDim惺绅寨瞀rngAsRangeDimsAsStringWithSheet3'Fori=1To.Range("a1000").End(xlUp).Row'循环的值由A列行数决定Fori=1To5'filpath=ThisWorkbook.Path&"\"&.Cells(i,1).Text&".jpg"'图片路径filpath="E:\02"&"\"&.Cells(i,1).Text&".jpg"IfDir(filpath)<>""Then'查找名字相同并插入图片，列出图片名字.Pictures.Insert(filpath).Select'选择插入的图片Selection.ShapeRange.LockAspectRatio=msoFalse'Setrng=.Cells(i,3)'设置图片插入的位置，第三列Setrng=.Range("C"&(i)&":D"&(i))WithSelection.Top=rng.Top+5.Left=rng.Left+5.Width=rng.Width-10.Height=rng.Height-10EndWith'Setrg=rng.TopLeftCell'Ifrg.MergeCells=TrueThen'WithSelection'.Top=rg.MergeCell.Top+5'.Left=rg.MergeCell.Left+5'.Width=rg.MergeCell.Width-10'.Height=rg.MergeCell.Height-10'EndWith'Else'WithSelection'.Top=rg.Top+5'.Left=rg.Left+5'.Width=rg.Width-10'.Height=rg.Height-10'EndWith'EndIfElses=s&Chr(10)&.Cells(i,1).TextEndIfNext.Cells(1,1).SelectEndWithIfs<>""ThenMsgBoxs&Chr(10)&"没有照片"EndIfEndSub
5、最后我们就可以看到在工作表的第3列当中自动批量图片，
