Excel单元格内插入图片（VBA创建函数，根据图片名称批量插入，中间有空格）

1. 详细步骤见
Excel单元格内插入图片（VBA创建函数，根据图片名称批量插入）

2. VBA代码部分改为如下代码Sub 插入图形应用()

For Each shap In Sheet1.Shapes

If shap.Type <> 8 Then shap.Delete

Next shap

    Dim j As Long

    j = 2

    'If Cells(1, 2) = "" Then Exit Sub   '第一个就为空的话直接退出

    Do Until j = Cells.Rows.Count

        If Cells(j, 1) <> "" Then
        
            Dim i As String
            
            i = ""
        
            If Len(Dir(ThisWorkbook.Path & "\图库\" & Cells(j, 1) & ".jpg")) Then

                i = ThisWorkbook.Path & "\图库\" & Cells(j, 1) & ".jpg"

            ElseIf Len(Dir(ThisWorkbook.Path & "\图库\" & Cells(j, 1) & ".png")) Then

                i = ThisWorkbook.Path & "\图库\" & Cells(j, 1) & ".png"

            End If
            
            If i <> "" Then
            
                Set rngs = Cells(j, 3)

                Sheet1.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.Height
            
            End If
            
        End If
        
        j = j + 1
    Loop
    
End Sub
3. 实现效果如下