excel表格怎么使用VBA在窗体中预览图片?
时间:2021-05-22 来源:互联网
excel中想要预览图片,我们可以使用vba在窗体中预览图片,该怎么实现呢?下面我们就来看看详细的教程。
软件名称:excel2013 精简六合一版 绿色免费版软件大小:158MB更新时间:2019-06-28立即下载
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行
Private Sub ListBox1_Click() On Error GoTo err Image1.Picture=LoadPicture(ThisWorkbook.path & \图片\ & ListBox1. Text): Exit Suberr:MsgBox 请选择图片名!, 64, 提示End SubPrivate Sub UserForm_Initialize()Dim jpg As String, s As String, n As Long, path As StringOn Error GoTo errMe.BackColor=&HFFC0C0 '设置窗体背景色Me.ListBox1.BackColor=&HFFFF80 '设置列表框背景色path=ThisWorkbook.path & \图片\s=Dir(path & \*.jpg)While Len(s) > 0n=n+1s=Dir()WendImage1.Picture=LoadPicture(ThisWorkbook.path & \ & 图片\1.jpg)jpg=Dir(ThisWorkbook.path & \图片\*.jpg)ListBox1.AddItem 图片列表For I=1 To nListBox1.AddItem jpg jpg=DirNext IExit Suberr:End Sub
5、用快捷键F5运行窗体,窗体自动加载图片和图片列表,如图
以上就是excel表格使用VBA在窗体中预览图片的教程,希望大家喜欢,请继续关注PHP爱好者。
相关推荐:
excel中VBA编辑器怎么设置字体大小?
Excel中VBA怎么实现自动批量添加超链接?
excel表格怎么利用vba获取当前单元格行号和列号?
相关阅读更多 +
-
币安怎么开网格交易?-自动化套利策略快速上手指南 2025-07-05
-
美国对等关税缓冲期7月9日截止,特朗普拒延期限将通知加征惩罚性关税(美国关税减让表) 2025-07-05
-
币安账户被锁定怎么办?-申诉流程与账号解封方法 2025-07-05
-
-
币安怎么买空币种?-空头交易机制与操作指南 2025-07-05
-
比特币稳定在10.7万美元上方 美国参议院通过4.5万亿支出法案 2025-07-05
最近更新