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

yujiaerzong

于 2018-03-20 14:16:34 发布

阅读量4.5k

点赞数 1

分类专栏： Excel 文章标签： Excel VBA 单元格批量插入图片

本文链接：https://blog.csdn.net/yujiaerzong/article/details/79624870

版权

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 & "\图库\" & Ce

最低0.47元/天解锁文章