vba插入图片，控制宽、高度最大不超过100

    Cells(23, 2).Select

    picpath = Application.GetOpenFilename("请选择图片,*.*", , "请选择", , False)

    If picpath = False Then Exit Sub

    ActiveSheet.Pictures.Insert(picpath).Select

    If Selection.ShapeRange.Width > Selection.ShapeRange.Height Then

        Selection.ShapeRange.Width = 100

    Else

        Selection.ShapeRange.Height = 100

    End If

End Sub

image控件大小，属性值为布尔类型，即值只能是True或False。当值为True时image控件将根据所加载图片的尺寸自行调整控件本身尺寸，即自动设置Height与Width属性值为加载图片的对应值，当值为False时lmage控件不会自动调整控件自身尺寸，即Height与Width属性值固定。

image控件即图像加载控件，仅用于在窗体中显示图像信息，不能作为其他控件的容器。可以实现图片插入后有事件关联。

sub 图片导入

dim s as shape

dim rg as range

'删除已有的图片

for each s in activesheet.shapes

if s.type <>8 then

s.delete

end if

'导入图片

for each rg in range("B2:B10")'这里放要插入图片的单元格范围 B2:B10可以改成你所需要的范围

activesheet.shapes.addshape(msoshaperectangle,rg.left,rg.top,rg.width,rg.height).select

selection.shaperange.fill.userpicture "E:\图片"&rg.offset(0, -1) &".jpg"'这里指定的是图片的存储路径为E盘下的图片文件夹，然后图片名称与A列的数据一致，后缀名为JPG格式。这些你都可以自行更改。根据需要来定

next rg

end sub