作者：绿色风
分类：
时间：2022-08-18
浏览：92
楼主
YESS95 |
一、代码详解
1.利用application.getopenfilename方法获取图片文件名插入
语法：application.getopenfilename(filefilter,filterindex,title,buttontext,multiselect)
例：- Sub test1()
- Dim filenames As String
- Dim filefilter1 As String
- filefilter1 = ("所有图片文件（*.jpg;*.bmp;*.png;*.gif）,*.jpg;*.bmp;*.png;*.gif") '所有图片文件后面的括号为中文括号
- filenames = Application.GetOpenFilename(filefilter1, , "请选择一个图片文件", , MultiSelect:=False)
- Pictures.Insert (filenames)
- End Sub
2.在表内插入图片控件，利用application.getopenfilename方法获取图片文件名插入
语法：object.picture = loadpicture(pathname)
例：- Sub test2()
- Dim filenames As String
- Dim filefilter1 As String
- filefilter1 = ("所有图片文件（*.jpg;*.bmp;*.png;*.gif）,*.jpg;*.bmp;*.png;*.gif") '所有图片文件后面的括号为中文括号
- filenames = Application.GetOpenFilename(filefilter1, , "请选择一个图片文件", , MultiSelect:=False)
- Image1.Picture = LoadPicture(filenames)
- End Sub
3.调用excel内置插入图片对话框dialogs(xldialogInsertpicture)插入图片
语法：application.dialogs(xldialogInsertpicture).show
例：- Sub test3()
- Application.Dialogs(xlDialogInsertPicture).Show
- End Sub
二、图解示例
图片插入介绍.gif
 excel vba工作表插入图片的三种方法.rar
|
2楼
bishunbiao |
按需取代码，根据需要选择图片插入方式 |
3楼
0Mouse |
总结的图片插入方法蛮不错的。
有三个小错误，有空可以修正一哈。
 1.jpg
 2.jpg
 3.jpg |
4楼
mmice |
请问，第4行代码
filefilter1 = ("所有图片文件 (*.jpg;*.bmp;*.png;*.gif),*.jpg;*.bmp;*.png;*.gif")
这个右边赋值给左边字符串filefilter1，为啥是一对括号，而不是一对""号 |
5楼
水星钓鱼 |
感谢分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一