excel表格怎么使用VBA在窗体中预览图片?
发布时间：2021-09-24 12:02:01 作者：手工客
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运行窗体，窗体自动加载图片和图片列表，如图
相关文章
-
excel表格怎么使用vba实现全屏显示？excel表格想要实现全屏显示，该怎么设置呢？我们可以使用vba实现，下面我们就来看看详细的教程，需要的朋友可以参考下12-19 -
excel表格怎么利用VBA代码插入交叉矩形图？excel表格中想要绘制交叉的矩形图，该怎么绘制这个图形呢？我们可以使用vba代码来绘制，下面我们就来看看详细的教程，需要的朋友可以参考下10-02
-
excel怎么使用VBA代码自动生成三维饼图？excel表格中的数据想要自动生成三维饼图，该怎么制作呢？下面我们就来看看详细的教程，需要的朋友可以参考下11-14 -
excel怎么利用VBA代码插入同心圆？excel中想要画一个同心圆，该怎么绘制同心圆呢？下面我们就来看看excel总vba插入同心圆的教程，需要的朋友可以参考下03-25
-
Excel中VBA怎么实现自动批量添加超链接？Excel表格中想要批量添加超链接，有什么快速添加的方法吗？我们可以使用vba来实现，下面我们就来看看详细的教程，需要的朋友可以参考下03-01 -
word下拉型窗体域怎么使用? word下拉选择列表创建方法
word下拉型窗体域怎么使用？word中想要使用下拉型窗体域，该怎么使用这个功能创建一个下拉列表呢？下面我们就来看看word下拉选择列表创建方法，需要的朋友可以参考下01-21 -
excel表格怎么利用VBA代码快速制作一份通讯录？excel表格中想要利用vba代码快速制作一份通讯录，该怎么制作呢？下面我们就来看看详细的教程，需要的朋友可以参考下12-10 -
excel表格怎么制作人事工资管理系统？excel表格中想要制作一个公司人事工资管理系统，该怎么制作呢？下面我们就来看看详细的教程，需要的朋友可以参考下04-07
-
excel表格中VBA文件怎么实现定时自我删除？excel中想要实现文件可以定时自动删除，该怎么实现这个功能呢？下面我们就来看看详细的教程，需要的朋友可以参考下03-09 -
excel表格怎么使用VBA向其他工作表追加数据？excel表格中想要向其他表格追加数据，该怎么实现呢？今天我们就来看看使用vba实现的方法，需要的朋友可以参考下12-07
