在工作表中批量插入图片，只需动动你的手指

你好，我是刘卓。欢迎来到我的公号，excel函数解析。在工作中，有时需要在工作表中插入很多图片，如果手工操作的话，非常麻烦，费时费力。今天就来分享一段简单的代码，只需点一下，就能批量插入图片。

-01-

具体应用

如下图所示，在F盘的“图片”文件夹下，有一些小动物的图片。现在的要求是将这些图片全部插入到excel工作表中。

我现在是将这些图片插入到sheet1中，并且在A列写入图片名，在B列插入图片。只需点一下按钮，就可以批量插入图片名以及图片。当更改单元格的列宽时，再点一下按钮，图片也会自动调整宽度。

实现这个效果，只需一段代码。代码如下：

Sub 批量插入图片() Dim lj$, wjm$, n% Dim r As Range, shp As Shape For Each shp In Sheet1.Shapes If shp.Type <> 8 Then shp.Delete Next lj = "F:\图片" wjm = Dir(lj & "\") Do While wjm <> "" n = n + 1 Cells(n + 1, 1) = wjm Set r = Cells(n + 1, 1).Offset(0, 1) Sheet1.Shapes.AddPicture lj & "\" & wjm, True, True, _ r.Left, r.Top, r.Width, r.Height wjm = Dir LoopEnd Sub