excel表格怎么使用VBA在窗体中预览图片?

办公教程导读

收集整理了【excel表格怎么使用VBA在窗体中预览图片?】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1143字，纯文字阅读大概需要2分钟。

办公教程内容图文

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub ListBox1_Click()
  On Error GoTo err
  Image1.Picture=LoadPicture(ThisWorkbook.path & "\图片\" & ListBox1.
  Text): Exit Sub
err:
MsgBox "请选择图片名！", 64, "提示"
End Sub
Private Sub UserForm_Initialize()
Dim jpg As String, s As String, n As Long, path As String
On Error GoTo err
Me.BackColor=&HFFC0C0  '设置窗体背景色
Me.ListBox1.BackColor=&HFFFF80   '设置列表框背景色
path=ThisWorkbook.path & "\图片\"
s=Dir(path & "\*.jpg")
While Len(s) > 0
n=n+1
s=Dir()
Wend
Image1.Picture=LoadPicture(ThisWorkbook.path & "\" & "图片\1.jpg")
jpg=Dir(ThisWorkbook.path & "\图片\*.jpg")
ListBox1.AddItem "图片列表"
For I=1 To n
ListBox1.AddItem jpg
 jpg=Dir
Next I
Exit Sub
err:
End Sub

5、用快捷键F5运行窗体，窗体自动加载图片和图片列表，如图

上一篇：excel表格怎么设置批注内部分文本颜色? 下一篇：Excel2019怎么制作柱形图？Excel2019柱形图制作教程

相关文章

Excel教程

Excel表格下拉列表怎么设置

2023-01-18

详细阅读

Excel教程

Excel如何打印选定区域

2023-01-18

详细阅读

Excel教程

Excel怎么设置英文首字母大写

2023-01-18

详细阅读

Excel教程

Excel怎么给所有的数字加10

2023-01-18

详细阅读

Excel教程

Excel怎么设置日期自动更新

2023-01-18

详细阅读

办公教程总结

以上是为您收集整理的【excel表格怎么使用VBA在窗体中预览图片?】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程excel表格怎么使用VBA在窗体中预览图片?。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。