excel表格怎么使用VBA在窗体中预览图片?
百度经验 发布时间：2020-01-02 10:54:37 作者：武文之道定乾坤 
我要评论
我要评论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里的copy命令？excel中想要复制数据，我们可以使用vba中的copy命令函数来实现，操作方法也简单，适合大家学习，下面我们就来看看详细的教程，需要的朋友可2016-10-23
- excel怎么利用vba获取单元格交叉范围的数据？想要获取交叉表格中的数据，该怎么获得呢？下面我们就来看看使用vba获取的方法，很简单，需要的朋友可以参考下2016-10-23
- excel怎么使用vba判断最后一个单元格是否为空？excel中想要知道表格最后一个单元格有没有数据，该怎么判断呢？下面我们就来看看使用vba判断的教程，需要的朋友可以参考下2016-10-18
- Excel最强大的功能就是能够对数据进行运算，这依赖于excel的成百上千的内部函数，更体现在excel的强大的VBA，这样就让越来越多的需要处理数据而又不会编程的人带来方便，下2016-10-16
- VBA是Excel的底层根本。只有明白使用最底层的东西，使用起来才能随心所欲，下面小编就为大家介绍excel如何通过vba代码关闭工作薄方法，一起来看看吧2016-10-16
- 我有一个excel文档,里面又有很多个工作表,每个工作表里都有很多批注,我现在想把每个工作表里满足条件的批注删掉或者替换成别的，怎么操作呢？下面小编就为大家介绍excel vb2016-10-14
- 今天小编为大家分享excel使用vba选取全部工作表的两种方法，对于不知道怎么操作的朋友可以参考本文，希望这篇文章能对大家有所帮助2016-10-12
- vba单元格引用在学习VBA过程中很常用，下面小编就为大家介绍excel vba如何引用单元格值方法，不会的朋友可以参考本文，一起来看看吧2016-10-11
- excel怎么使用vba的close关闭工作簿？excel中我们可以使用vba完成很多动作，包括关闭工作薄，今天我们就来看看close的使用方法，需要的朋友可以参考下2016-10-10
- 这篇教程是向脚本之家的朋友分享excel用vba代码隐藏行的方法，教程比较基础，适合新手来学习，推荐到脚本之家，喜欢的朋友可以参考本文2016-10-08
最新评论