Excel VBA代碼：批量插入指定目錄下指定類型所有圖片

Excel VBA代碼：批量插入指定目錄下指定類型所有圖片

批量插入指定目錄下指定類型所有圖片Excel VBA代碼：

Sub insertimg()
””””””””””””””””””””””'
‘ 批量插入指定目錄下所有指定類型圖片 ‘
‘ ‘
””””””””””””””””””””””'
Dim mypath As String, nm As String
Dim theSh As Object
Dim theFolder As Object
Dim i As Integer
Application.ScreenUpdating = False ‘關閉屏幕更新
On Error Resume Next
‘設置搜索路徑
Set theSh = CreateObject("shell.application")
Set theFolder = theSh.BrowseForFolder(0, "", 0, "")
If Not theFolder Is Nothing Then
mypath = theFolder.Items.Item.Path
End If
‘//////////////搜索并插入圖片開始////////////////
nm = Dir(mypath & "\*.jpg")
‘第一次使用dir，必須指定pathname參數，返回符合條件的第1個文件名，修改擴展名可以查其它文件類型。
Do While nm <> ""
With Range("a" & i + 1)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, .Width, .Height).Select
Selection.ShapeRange.Fill.UserPicture mypath & "\" & nm ‘插入圖片
End With
i = i + 1
nm = Dir ‘再次調用不需要pathname參數
Loop
Set sh = Nothing ‘釋放內存
Set theFolder = Nothing ‘釋放內存
Application.ScreenUpdating = True ‘開啟屏幕更新
End Sub

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。