Question

在excel中用VBA语言在指定的合并单元格内插入图片

我的想法是这样子的，添加一个命令按钮，要求点击此按钮时从文件中选择需要的图片，在指定的合并单元格中插入该图片，图片大小根据单元格自动调整（锁定纵横比），这个是大概思路，求大神解答，谢谢

Answer 1

具体见附件！这里是导到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

追问

感谢你的回答，已基本满足需求，还有一点要问，是不是只能导入一种格式啊，能不能导入多种图片格式

追答

F = Application.GetOpenFilename("JPG文件,*.JPG", 1, MultiSelect:=False)

把"JPG文件,*.JPG改成你想要的格式！

这里面也可以改，改扩展名就行了。
f =Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt",1, MultiSelect:=True)

追问

F = Application.GetOpenFilename("JPG文件,*.JPG,JPEG文件,*.JPEG, "1, MultiSelect:=False)这样貌似不可以。

我在表中添加了控制按钮，然后双击进入编译器编译。导入图片时，点击取消，就会出现下边的对话框。显示第5个语句有问题

追答

Sub 图片导入()
Dim F
'F = Application.GetOpenFilename("JPG文件,*.JPG", 1, MultiSelect:=False)
F = Application.GetOpenFilename("JPG文件,*.JPG,JPEG文件,*.JPEG", 1, MultiSelect:=False)
If F = False Then Exit Sub
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

加个条件，如果点取消，就结束运行；见上面代码.对，你下面这句写错了，应该改为上面的样子；

F = Application.GetOpenFilename("JPG文件,*.JPG,JPEG文件,*.JPEG, "1, MultiSelect:=False)