订阅怎样使用VBA在窗体中预览图片？
来源：网络收集 点击： 时间：2024-03-01首先在开发工具中打开VBA编辑器
2/5在单元格区域当中输入一些内容作为例子
3/5在VBA编辑器中插入模块
4/5在模块当中输入如下代码，然后运行
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 n
ListBox1.AddItem jpgjpg=DirNext IExit Suberr:End Sub
5/5用快捷键F5运行窗体，窗体自动加载图片和图片列表，如图
注意事项智能手机助理给我们的生活带来了极大的便利！
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_188488.html
