根据A列名称在文件夹内查询插入对应名称，有这样的功能吗

晓森

图片查找插入

批量插入对应图片并适配单元格大小.zip (500.82 KB, 下载次数: 4)

2024-5-19 19:55 上传

点击文件名下载附件

可以根据A列单元格去查找图片文件夹内对应名称的图片并插入，调整图片大小跟随单元格大小变动

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, i&, strPath$, strFileName$, shp As Shape
   
    Application.ScreenUpdating = False
   
    For Each shp In ActiveSheet.Shapes
        If shp.Type = 11 Then shp.Delete
    Next
    strPath = ThisWorkbook.Path & "\图片文件\"
    With [A1].CurrentRegion
        ar = .Value
        For i = 1 To UBound(ar)
            strFileName = strPath & ar(i, 1) & ".jpg"
            If Dir(strFileName) <> "" Then
                .Cells(i, 2).Select
                ActiveSheet.Pictures.Insert(strFileName).Select
                With Selection
                    .ShapeRange.LockAspectRatio = msoFalse
                    .Height = ActiveCell.RowHeight
                    .Width = ActiveCell.Width
                    .Placement = xlMoveAndSize
                End With
            End If
        Next i
    End With
        
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

。。。。。。。。。。。。

剑指E

。                        

晓森

剑指E 发表于 2024-5-20 01:25
。

无效使用ME关键字什么意思大佬

晓森

gwjkkkkk 发表于 2024-5-19 20:26
。。。。。。。。。。。。

可以可以的，感谢版主带来学习信心

剑指E

晓森 发表于 2024-5-27 13:43
无效使用ME关键字什么意思大佬

你是不是把代码放到公共模块了，如果是，将me改成对应工作表的名称，如sheet1

晓森

剑指E 发表于 2024-5-27 14:22
你是不是把代码放到公共模块了，如果是，将me改成对应工作表的名称，如sheet1

太好用了竟然还带图片放大功能，永远的神可望不可及