Excel 插入图片

需求：
在Excel中插入图片，文件名在某一行或列，将对应目录下的图片文件插入至下一行。

代码：建立一个宏,将代码复制到宏里,将原来的方法全部覆盖掉

Sub 清空图片()

    \'删除当前sheet上所有的图片文件
    For Each Shape In ActiveSheet.Shapes
        Shape.Delete

    Next

End Sub

Sub 插入图片()

FilePath = "C:\Users\Administrator\Pictures\" \'图片文件路径
Fill = 0 \'插入方式:1:按列插入图片(横向) , 0 按行插入图片(纵向)

Row = 3 \'款号所在的行数
col = 2 \'款号所在的列数
Location = 1 \' 1: 在右边或下面 , -1 : 在左边或上面

Do
    \'根据第一行的图片文件名,将图片插入在第二行内,并调整图片的高与宽
    With Cells(Row + IIf(Fill = 1, Location, 0), col + IIf(Fill = 0, Location, 0))
        .Select
        L = .Left
        T = .Top
        W = .Width
        H = .Height

        Filename = Cells(Row, col).Text & ".jpg"   \'生成文件名
        If Filename = ".jpg" Then \'如果1行为空,表示结束
            Exit Do
        End If

        If Dir(FilePath & Filename) <> "" Then \'检查文件存在
            \'插入图片
            ActiveSheet.Shapes.AddShape(1, L, T, W, H).Fill.UserPicture (FilePath & Filename)

        End If
    End With

    If Fill = 1 Then
        col = col + 1
    Else
        Row = Row + 1
    End If
Loop

Cells(1, 1).Select \'回到A1单元格
End Sub

\' Mark:
\'旧方法,仅插入链接
\'            ActiveSheet.Pictures.Insert(FilePath & Filename).S elect \'插入图片
\'           Selection.ShapeRange.LockAspectRatio = 0 \'取消纵横比
\'            Selection.ShapeRange.Width =  W  \'设置宽度
\'            Selection.ShapeRange.Height = H \'设置高度