1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Private Sub ListBox1_Clic氯短赤亻k() On Error GoTo err Image1.Picture=LoadPicture(ThisWorkbook.path & "\图片\" & ListBox1. Text): Exit Suberr:MsgBox "请选择图片名！", 64, "提示"End SubPrivate Sub UserForm_Initialize()Dim jpg As String, s As String, n As Long, path As StringOn Error GoTo errMe.BackColor=&HFFC0C0 '设置窗体背景色Me.ListBox1.BackColor=&HFFFF80 '设置列表框背景色path=ThisWorkbook.path & "\图片\"s=Dir(path & "\*.jpg")While Len(s) > 0n=n+1s=Dir()WendImage1.Picture=LoadPicture(ThisWorkbook.path & "\" & "图片\1.jpg")jpg=Dir(ThisWorkbook.path & "\图片\*.jpg")ListBox1.AddItem "图片列表"For I=1 To nListBox1.AddItem jpgjpg=DirNext IExit Suberr:End Sub
5、用快捷键F5运行窗体，窗体自动加载图片和图片列表，如图
