資源描述:
《EXCEL批量導(dǎo)入圖片.doc》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、EXCEL批量導(dǎo)入圖片分類:腳本代碼
2、評論:4
3、引用:0
4、瀏覽:之前在小橋流水看到有人問怎樣在Excel批量導(dǎo)入圖片,隨手寫了個宏,沒想到今天又有人問我,中午把VBA小改一下圖片用1.jpg2.jpg3.jpg...10.jpg12.jpg依次命名圖片間隔是2張相鄰圖片左上角的間隔,例如圖片尺寸100像素,間隔寫100就剛好緊挨著默認(rèn)開始位置是以選擇框所在位置,例如下圖,選擇框在B2,圖片就從B2開始排列了演示下載,解壓到D盤就可以直接執(zhí)行了,如果打開彈出提示窗口,是因為你Excel安全性設(shè)置高,沒事,一樣可以執(zhí)行VBA代碼如下viewplaincopytoclip
5、boardprint?1.Sub?Macro1()??2.'?宏由?CAT?錄制,時間:?2007-2-7??3.'?批量導(dǎo)入圖片??4.??5.????Dim?picPath,?picWidth,?picHeight,?fileExt??6.????picPath?=?"D:"?????'圖片存放路徑??7.????picN?=?4????????????'圖片數(shù)量??8.????fileExt?=?".jpg"????'圖片后綴名??9.????picScale?=?30???????'圖片縮放百分比,不帶?%??10.????perPic?=?2??????
6、????'每行圖片數(shù)量??11.????xWidth?=?202????????'圖片水平間隔,即水平相鄰的圖片左上角間隔??12.????xHeight?=?152???????'圖片垂直間隔??13.??????14.????Dim?x,?y??15.????x?=?0??16.????y?=?0??17.????For?i?=?1?To?picN??18.?????????ActiveSheet.Pictures.Insert(picPath?&?i?&?fileExt).Select??19.?????????Selection.ShapeRange.Sca
7、leWidth?picScale?/?100,?msoFalse,?msoScaleFromTopLeft??20.?????????Selection.ShapeRange.ScaleHeight?picScale?/?100,?msoFalse,?msoScaleFromTopLeft??21.?????????Selection.ShapeRange.IncrementLeft?xWidth?*?x??22.?????????Selection.ShapeRange.IncrementTop?xHeight?*?y??23.?????????If?i?Mod?
8、perPic?=?0?Then??24.????????????x?=?0??25.????????????y?=?y?+?1??26.????????Else??27.????????????x?=?x?+?1??28.????????End?If??29.????Next??30.End?Sub