Sub 批次插入圖片()Dim wj As StringDim rng As RangeSheets("sheet1").Select "選中要插入圖片的工作表x = [a65536].End(xlUp).Row "取得最後一行的行號For i = 2 To x na = Cells(i, 1) "從第一列（即A列）得到照片名，並以此名查詢圖片 wj = "e:\pic" &"\" & na & ".jpg" "圖片檔案儲存的路徑與格式（.jpg） If Dir(wj) "" Then Cells(i, 2).Select "圖片需要插入到第二列（即B列） ActiveSheet.Pictures.Insert(wj).Select Set rng = Cells(i, 5) "根據單元格的大小調整圖片 With Selection .Top =rng.Top + 1 .Left =rng.Left + 1 .Width =rng.Width - 1 .Height =rng.Height - 1 End With End IfNextMsgBox "圖片插入完畢"End Sub
Sub 批次插入圖片()Dim wj As StringDim rng As RangeSheets("sheet1").Select "選中要插入圖片的工作表x = [a65536].End(xlUp).Row "取得最後一行的行號For i = 2 To x na = Cells(i, 1) "從第一列（即A列）得到照片名，並以此名查詢圖片 wj = "e:\pic" &"\" & na & ".jpg" "圖片檔案儲存的路徑與格式（.jpg） If Dir(wj) "" Then Cells(i, 2).Select "圖片需要插入到第二列（即B列） ActiveSheet.Pictures.Insert(wj).Select Set rng = Cells(i, 5) "根據單元格的大小調整圖片 With Selection .Top =rng.Top + 1 .Left =rng.Left + 1 .Width =rng.Width - 1 .Height =rng.Height - 1 End With End IfNextMsgBox "圖片插入完畢"End Sub