excel vba中，如何给窗体背景添加一张程序所在目录的照片，当打开窗体时载入此照片

并且以后任何时间打开此窗体都显示此照片，我的思路是：Form.Picture=ThisWorkbook.Path&"\"bjtp.jpg但语法不通，请高手指教！！！... 并且以后任何时间打开此窗体都显示此照片，我的思路是：Form.Picture = ThisWorkbook.Path &" \ " bjtp.jpg

但语法不通，请高手指教！！！展开

 我来答

1个回答

#热议# 应届生在签三方时要注意什么？

crazy0qwer
2013-04-24 · TA获得超过3299个赞

知道大有可为答主

回答量：4020

采纳率：71%

帮助的人：1311万

我也去答题访问个人页

关注

展开全部

UserForm1.Picture = LoadPicture(ThisWorkbook.Path & "\bjtp.jpg")

更多追问追答
追问

高手，谢谢，果然是我语句写错了
 
请问，现在打开时是可以显示了，但在关闭后，第二次调用此窗口就不显示了。怎么办呢?
追答

你用的什么事件？
下面这样看看：

Private Sub UserForm_Initialize()  '窗体加载事件

    UserForm1.Picture = LoadPicture(ThisWorkbook.Path & "\bjtp.jpg")
End Sub
追问

你好，感谢
 
我用的是UserForm1.Show
等于是直接赋值的
 
要向你说的那样该怎么实现呢
追答

把上面三句代码加入窗体的代码界面里面。
追问

如果找不到这张图片他就会错误，能否找不到图片就把背景设置成文字提示之类的？
追答

Private Sub UserForm_Initialize()  '窗体加载事件
    if dir(ThisWorkbook.Path & "\bjtp.jpg")"" then   '判断文件是否存在

        UserForm1.Picture = LoadPicture(ThisWorkbook.Path & "\bjtp.jpg")
    end if

End Sub