如何在excel 里 批量插入图片 并设置图片固定大小

hfdz1986

你教各位excelhome的高手们，我知道利用下面的方法 批量插入图片， 可是我不知道如何 设置 插入后图片的固定大小， 比如我想插入的图片固定 宽280，高150 如何能实现呢。
如何在excel中批量导入图片
比如你在SHEET1工作表批量插入图片，b列是图片名称，把在E盘下照片文件夹中对应名称图片插入到D列，按ALT+F11打开VBA，插入---模块---把下面代码复制进去。
Sub 批量插入图片()
Dim wj As String
Dim rng As Range
Sheets("SHeet1").Select '选中要插入图片的工作表
x = [a65536].End(xlUp).Row '取得最后一行的行号
For i = 2 To x
    na = Cells(i, 2) '从第二列（即B列）得到图片名称，并以此名查找图片
    wj = "e:\照片" & "\" & na & ".jpg" '图片文件存储的路径与格式（.jpg）
    If Dir(wj) <> "" Then
        Cells(i, 4).Select '图片需要插入到第四列（即d列）
        ActiveSheet.Pictures.Insert(wj).Select
        Set rng = Cells(i, 4) '根据单元格的大小调整图片
        With Selection
            .Top = rng.Top + 1
            .Left = rng.Left + 1
            .Width = rng.Width - 1
            .Height = rng.Height - 1
        End With
    End If
Next
MsgBox "图片插入完毕"
End Sub

退出VBA，在工具---宏---选择---批量插入图片()---执行。