可通过VBA批量插入图片：方法A适配完整路径，方法B适配文件名+根目录；选中路径列后运行对应宏，图片自动插入右侧单元格并设宽100磅。
如果您在Excel工作表中已列出图片文件名或路径，希望根据这些内容自动将对应图片插入到指定单元格旁，则可通过VBA代码实现批量导入。以下是具体操作步骤：
一、准备图片文件与路径信息
确保所有待插入的图片文件存放在同一文件夹中，且工作表中列出了完整文件路径（如“D:\Images\photo1.jpg”）或仅文件名（如“photo1.jpg”）。若仅使用文件名，需同步指定统一的图片根目录，否则VBA无法定位文件。
1、在Excel中选中存放图片路径或名称的列（例如A列），确认无空单元格或非法字符。
2、若使用相对文件名，请在VBA代码中预先设定图片所在文件夹的绝对路径，例如“D:\MyPics\”。
3、检查文件扩展名是否为Excel支持的格式（如.jpg、.png、.bmp），不支持.webp或.raw等非原生格式。
二、启用开发工具并插入VBA模块
该步骤用于创建可执行的宏环境，使后续代码能被调用运行。需确保Excel启用了宏功能及开发工具选项卡。
1、点击“文件”→“选项”→“自定义功能区”，勾选“开发工具”，点击“确定”。
2、在“开发工具”选项卡中，点击“Visual Basic”，打开VBA编辑器。
3、在左侧工程资源管理器中，右键目标工作簿名称，选择“插入”→“模块”，新建一个标准模块。
三、粘贴并配置自动插入图片的VBA代码
以下提供两种独立可用的方法：方法A适用于已含完整路径的单元格；方法B适用于仅含文件名的单元格，并需配合固定根目录使用。
1、在新建模块中粘贴以下方法A代码（适配完整路径）：
Sub InsertPicByFullPath()
Dim rng As Range, cell As Range
Dim pic As Picture
Set rng = Selection '以选中区域为操作范围
For Each cell In rng
If Dir(cell.Value) "" Then
Set pic = ActiveSheet.Pictures.Insert(cell.Value)
With pic
.Top = cell.Top
.Left = cell.Offset(0, 1).Left
.ShapeRange.LockAspectRatio = msoTrue
.Width = 100
End With
End If
Next cell
End Sub
2、若使用方法B（仅文件名），请粘贴以下代码，并将"D:\MyPics\"替换为您的实际图片根目录：
Sub InsertPicByFileName()
Dim rng As Range, cell As Range
Dim picPath As String, pic As Picture
Const RootFolder As String = "D:\MyPics\" '请修改为此处
Set rng = Selection
For Each cell In rng
picPath = RootFolder & Trim(cell.Value)
If Dir(picPath) "" Then
Set pic = ActiveSheet.Pictures.Insert(picPath)
With pic
.Top = cell.Top
.Left = cell.Offset(0, 1).Left
.ShapeRange.LockAspectRatio = msoTrue
.Width = 100
End With
End If
Next cell
End Sub
四、运行宏并验证插入效果
执行所选宏后，程序将遍历选中单元格，逐个读取内容作为路径或文件名，加载图片并锚定在对应单元格右侧位置。图片尺寸默认设为宽100磅，高度按比例锁定。
1、返回Excel界面，选中包含图片路径或文件名的单元格区域（如A2:A20）。
2、点击“开发工具”→“宏”，在列表中选择“InsertPicByFullPath”或“InsertPicByFileName”，点击“运行”。
3、观察图片是否出现在各单元格右侧；若某单元格未插入图片，请检查该单元格内容是否拼写正确、文件是否存在、路径是否含隐藏空格。
五、调整图片位置与尺寸参数
默认插入位置为单元格右侧、顶部对齐，宽度固定为100磅。如需修改布局，可直接编辑VBA代码中相关属性值。
1、修改插入列偏移量：将“.Left = cell.Offset(0, 1).Left”中的“1”改为“2”则插入至再右一列。
2、调整图片宽度：将“.Width = 100”中的“100”改为所需数值（单位为磅），例如“150”。
3、取消等比缩放：删除“.ShapeRange.LockAspectRatio = msoTrue”这一行，即可分别设置.Width和.Height。
