具体见附件！这里是导到B1单元格所在的合并单元格，导入格式为JPG图片。
Sub 图片导入()
Dim F
F = Application.GetOpenFilename("JPG文件,*.JPG", 1, MultiSelect:=False)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("b1").Left, Range("b1").Top, Range("b1").Width, Range("b1").Height * 5).Select 'msoShapeRectangle是类别，是一个矩形
Selection.ShapeRange.Fill.UserPicture F
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024