怎样使用VBA加载窗体图片

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

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

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

4、在模块当中输入如下代码，然后运行Private Sub UserForm_Acti箪滹埘麽vate() '激活窗体时执行本程序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=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图片后，窗体背景则填充为该图片背景