搜索
EXCEL批量导入图片分类:脚本代码|评论:4|引用:0|浏览:之前在小桥流水看到有人问怎样在Excel批量导入图片，随手写了个宏，没想到今天又有人问我，中午把VBA小改一下图片用1.jpg2.jpg3.jpg...10.jpg12.jpg依次命名图片间隔是2张相邻图片左上角的间隔，例如图片尺寸100像素，间隔写100就刚好紧挨着默认开始位置是以选择框所在位置，例如下图，选择框在B2，图片就从B2开始排列了演示下载，解压到D盘就可以直接执行了，如果打开弹出提示窗口，是因为你Excel安全性设置高，没事，一样可以执行VBA代码如下viewplaincopytoclipboardprint?1.SubMacro1()2.'宏由CAT录制，时间:2007-2-73.'批量导入图片4.5.DimpicPath,picWidth,picHeight,fileExt6.picPath=D:\'图片存放路径7.picN=4'图片数量8.fileExt=.jpg'图片后缀名9.picScale=30'图片缩放百分比，不带%10.perPic=2'每行图片数量11.xWidth=202'图片水平间隔，即水平相邻的图片左上角间隔12.xHeight=152'图片垂直间隔13.14.Dimx,y15.x=016.y=017.Fori=1TopicN18.ActiveSheet.Pictures.Insert(picPath&i&fileExt).Select19.Selection.ShapeRange.ScaleWidthpicScale/100,msoFalse,msoScaleFromTopLeft20.Selection.ShapeRange.ScaleHeightpicScale/100,msoFalse,msoScaleFromTopLeft21.Selection.ShapeRange.IncrementLeftxWidth*x22.Selection.ShapeRange.IncrementTopxHeight*y23.IfiModperPic=0Then24.x=025.y=y+126.Else27.x=x+128.EndIf29.Next30.EndSub