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