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

office教程网 2024-07-04 21:53:40

默认

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要：

excel表格怎么使用VBA在窗体中预览图片？excel表格中的数据想要使用vba预览图片，该怎么实现呢？下面我们就来看看详细的教程，需要的朋友可以参考下

excel中想要预览图片，我们可以使用vba在窗体中预览图片，该怎么实现呢？下面我们就来看看详细的教程。

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运行窗体，窗体自动加载图片和图片列表，如图

Excel2019怎么制作柱形图？Excel2019柱形图制作教程
Excel2019怎么制作柱形图？这篇文章主要介绍了Excel2019柱形图制作教程,需要的朋友可以参考下

以上就是excel表格使用VBA在窗体中预览图片的教程，希望大家喜欢，请继续关注脚本之家。

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

Excel教程 Excel表格下拉列表怎么设置
Excel表格下拉列表怎么设置呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Excel表格下拉列表怎么设置的回答，希望能够对大家有所帮助。......

2023-01-18
详细阅读
Excel教程 Excel如何打印选定区域
Excel如何打印选定区域呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Excel如何打印选定区域的回答，希望能够对大家有所帮助。......

2023-01-18
详细阅读
Excel教程 Excel怎么设置英文首字母大写
Excel怎么设置英文首字母大写？Excel中输入英文首字母大写怎么操作？当我们需要将Excel表格中的英文单词，把首字母全部大写，该怎么操作呢，怎么将Excel中英文首字母大写，Excel怎么设置英文首字母大写，下面就和小编一起来看看吧！......

2023-01-18
详细阅读
Excel教程 Excel怎么给所有的数字加10
Excel怎么给所有的数字加10？Excel数字怎么全部加10？怎么全部加1？当我们在使用Excel时，所有的数字都少10，或者1，该怎么给所有的数字都 10、 1呢，Excel怎么给所有的数字加10，EXcel数字怎么全部加10，下面就和小编一起来看看吧！......

2023-01-18
详细阅读
Excel教程 Excel怎么设置日期自动更新
Excel怎么设置日期自动更新？Excel怎么设置日期自动更新？当我们Excel表格中的日期需要实时更新到最新日期，该怎么设置呢，怎么将Excel表格日期自动更新到最新日期，Excel怎么设置日期自动更新，下面就和小编一起来看看吧！......

2023-01-18
详细阅读