Excel想要预览图片。我们可以使用vba预览表单中的图片。如何实现这一点？让我们来看看详细的教程。

软件名称：excel2013精简版六合一绿色自由版软件大小：158MB更新时间：2019-06-28立即下载。

1.首先，在开发工具中打开VBA编辑器。

2.在单元格区域输入一些内容作为示例。

3.在VBA编辑器中插入该模块。

4.在模块中输入以下代码并运行。

gotoerr image1上的Private sublistbox1 _ click()错误。图片=加载图片(此工作簿.路径' picture ' listbox 1 . text):退出子项3360msgbox '请选择一个图片名称！'，64，' prompt ' end sub private sub user form _ initialize()dim jpg为字符串，s为字符串，n为长，Path stringon错误gotoerrme。backcolor=hffc0c0 '设置Me表单的背景色。ListBox1.BackColor=HFFFF80 '设置列表框的背景色路径=this workbook . path ' picture ' s=Dir(路径' *)。jpg ')而len(s)0n=n1s=dir()wend image 1 . picture=load picture(此工作簿. path' ' picture 1.jpg') jpg=dir(此工作簿. path' picture *。jpg ')列表框1。I=1到n listbox1.additem jpg=dir下一个I退出suberr 3360 end sub 的AddItem“图片列表”。

5.用快捷键F5运行表单，表单会自动加载图片和图片列表，如图。

以上是在excel中用VBA预览表单中图片的教程。希望大家喜欢，请继续关注。

相关建议：

如何在excel的VBA编辑器中设置字体大小？

Excel的VBA如何批量自动添加超链接？

如何用vba获取excel表格中当前单元格的行号和列号？