VBA代码、批量导入图片

这段代码实现了批量导入图片到你指定位置，还可以修改它的大小，图片的名称也跟着导入进来了。

运行的时候它会弹出这么一个选择图片的对话框，你可以根据想要的图片加选打开，然后就导入到你的指定位置了。

下面是代码分享

Sub 批量导入图片()

Dim sr, ph$, sr2, n%, n2 As Range 申明变量

ph = ThisWorkbook.Path & '\素材图片\' 获取图片文件夹的链接

Application.FileDialog(msoFileDialogFilePicker).Show 打开文件对话框显示文件

Set sr = Application.FileDialog(msoFileDialogFilePicker).SelectedItems 选择多个文件集合

For Each sr2 In sr 循环文件集合，返回的是文件地址

n = n + 1

ActiveCell(n, 1) = Replace(sr2, ph, '') 查找替换只要图片名字

Set n2 = ActiveCell(n, 2) 定位单元格

ActiveSheet.Shapes.AddPicture sr2, 1, 1, n2.Left, n2.Top, n2.Width, n2.Height 插入图片

Next 循环结尾

End Sub