怎样使用VBA加载窗体图片？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub UserForm_Activate()                   '激活窗体时执行本程序

Dim file
file=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=fmBorderStyleNone
End Sub
Private Sub UserForm_Click()                      '单击窗体时执行本程序
Dim file
On Error GoTo err                         '如果程序出错，执行err标签行
file=Application.GetOpenFilename("图片文件 (*.jpg),*.jpg") '选择图片路径
Me.Picture=LoadPicture(file): Exit Sub           '加载图片后退出程序
err:
MsgBox "你未选择图片", vbDefaultButton1+32, "提示"   '如果出错则弹出提示
End Sub

5、单击窗体空白处，程序再次弹出选择图片对话框，选择硬盘上任意JPG图片后，窗体背景则填充为该图片背景