1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Private Sub UserForm_Activate() '激活窗体时执行本程序Dim filefile=Application.GetOpenFilename("图片文件 (*.jpg),*.jpg")Me.Image2.Picture=LoadPicture(file) '选择Image2的图片路径Me.Image2.PictureSizeMode=fmPictureSizeModeStretch '使图片适合控件大小Me.Image2.BorderStyle=fmBorderStyleNone '去除控件边框Me.Image1.Picture=LoadPicture("D:\PIC\16.gif")'自动设置Image1的图片路径Me.Image1.BorderStyle=fmBorderStyleNoneEnd SubPrivate Sub UserForm_Click() '单击窗体时执行本程序Dim fileOn Error GoTo err '如果程序出错，执行err标签行file=Application.GetOpenFilename("图片文件 (*.jpg),*.jpg") '选择图片路径Me.Picture=LoadPicture(file): Exit Sub '加载图片后退出程序err:MsgBox "你未选择图片", vbDefaultButton1+32, "提示" '如果出错则弹出提示End Sub
5、单击窗体空白处，程序再次弹出选择图片对话框，选择硬盘上任意JPG图片后，窗体背景则填充为该图片背景
