Question

VBA 图片控件载入图片出错(没有图片时)?

下面这句就是excel 用VBA给图片控件载入图片路径的
Image1.Picture = LoadPicture("E:\相片\李艳.JPG")
但当如果相片文件夹如果没有李艳的相片,那程序运行时就会出现运行出错,应该要加句如果该文件夹没有相对应的图片时,就不显示,如果有的话,就显示出图片,就不会出错了,但如果添加判断代码,我不会,求高手!!!!!!!

Answer 1

写一个判断文件是否存在的函数
Function ExistsFile_UseFso(strPath As String) As Boolean

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

ExistsFile_UseFso = fso.FileExists(strPath)

Set fso = Nothing

End Function
然后在你loadpicture之前判断一下:
if ExistsFile_UseFso("E:\相片\李艳.JPG") then
Image1.Picture = LoadPicture("E:\相片\李艳.JPG")
end if