Excel批量插入图片，宏方法，根据图片名称/货号、货号-颜色批量插入图片（宏方法），VBA宏，根据图片名称/货号批量插入图片；货号-颜色批量插入图片，表格需要支持VBA

WillemYue

已于 2024-01-22 12:03:58 修改

阅读量2.2k

点赞数 13

文章标签： excel

于 2024-01-22 11:29:32 首次发布

本文链接：https://blog.csdn.net/WillemYue/article/details/135743943

版权

本文详细描述了两个VBA宏，用于在Excel中根据货号和颜色从特定文件夹批量插入图片，并自动调整图片大小和位置以适应单元格。脚本包括输入参数验证、图片格式选择和不同方法插入图片以适应单元格布局。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

根据图片名称/货号批量插入图片

Attribute VB_Name = "货号"
Sub InsertPicture货号()
        'copy right 2020 by billy
    '定义变量
    Dim cellcolumn, Piccolumn As String
    
    Dim picDir, picPath As String
    
    Dim i, MaxRowCount As Integer
    
    Dim picColWidth, picRowHeight As Integer
    
    Dim picWidth, picHeight As Integer
    
    Dim SrcRange, picRange As Range
    
    Dim picShapeRange As ShapeRange
    
    
    '容错处理
    On Error Resume Next
    
    '关闭屏幕更新，提升速度
    'Application.ScreenUpdating = False
    
    '设置款号所在列
    cellcolumn = InputBox("请输入款号所在列的名称（图片的文件名在哪一列）。", "款号列名称", "A")

    '设置插入图片所在第几列
    Piccolumn = InputBox("请输入图片插入后所在列的名称（图片插入后放在哪一列）。", "图片列名称", "F")

    '图片存放的文件夹路径,如：E:\FX_Image\
    picDir = InputBox("请输入图片文件存放的文件夹路径。", "图片路径", "D:\User\Desktop\新建文件夹 (2)\货号")

    '输入有误是，则退出
    If cellcolumn = "" Or Piccolumn = "" Or picDir = "" Then Exit Sub
    
    '若图片路径文件夹最后没有斜杠\，则加上
    If Right(picDir, 1) <> "\" Then picDir = picDir & "\"
    
    '图片单元格的宽高
    picColWidth = 10
    picRowHeight = 60

    '获取数据区域的最后一行行号
    MaxRowCount = Cells(Rows.Count, cellcolumn).End(xlUp).Row

    '设置列宽
    Columns(Piccolumn).ColumnWidth = picColWidth
        'MsgBox "列宽" & picColWidth
    
    '设置行高
    Rows("2:" & MaxRowCount).RowHeight = picRowHeight
    
    '数字2是设置开始填充图片的行号是第2行
    For i = 2 To MaxRowCount
        
        '图片文件名所在的单元格对象
        Set SrcRange = Cells(i, cellcolumn)
        
        '读取图片文件，优先读取jpg格式，若没有，则读取jpeg格式，若仍然没有，最后在读取png格式
        picPath = picDir & SrcRange & ".jpg"
        '检查文件是