批量插入指定目錄下圖片

公司的MM們給客戶的訂單經常要插入產品圖片,一張一張的插入,而且還要調整大小十分的麻煩,于是寫了這個VBA代碼。

使用方法:在要插入圖片的文件夾里新建一個Excel文件,打開這個Excel文件,在要插入圖片的單元格里填上圖片文件名(不要擴展名),選中要插入圖片的單元格,修改單元格的大小,運行宏代碼。代碼如下:

sub 批量插入圖片()

" 宏由 www.pootor.com 錄制,時間: 2010-5-20

" Dir函數批量獲取指定目錄下所有文件名和內容

On Error Resume Next

Application.ScreenUpdating = False "關閉屏幕更新

Dim MR As Range

For Each MR In Selection

If Not IsEmpty(MR) And Dir(ActiveWorkbook.Path & "\" & MR.Value & ".jpg") <> "" 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 _

ActiveWorkbook.Path & "\" & MR.Value & ".jpg" "當前文件所在目錄下以當前單元內容為名稱的.jpg圖片

End If

Next

Set MR = Nothing

Application.ScreenUpdating = True "開啟屏幕更新

End Sub

免責聲明:本文僅代表文章作者的個人觀點,與本站無關。其原創性、真實性以及文中陳述文字和內容未經本站證實,對本文以及其中全部或者部分內容文字的真實性、完整性和原創性本站不作任何保證或承諾,請讀者僅作參考,并自行核實相關內容。

http://www.eoauzbr.cn/style/images/nopic.gif
?
分享
評論
首頁
山东十一选五遗漏 福建11选5投注 江西配资 幸运飞艇计划群推荐 番号库APP 幸运pk10计划在线计划 篠田优中文在线观看 体彩新11选5任选8 球探比分网篮球即时比分 有疯狂飞艇这个彩票吗 全球股市指数 广东11选5任五胆拖 澳洲幸运8 广西十一选五开奖结果查询 麻将作弊有哪些工具 辽宁11选5杀码 澳洲幸运5怎样玩赢的几率比较大