execl vba image控件显示图像问题

silencezw · 发表于 2013-6-5 17:02

Private Sub Worksheet_Change(ByVal Target As Range)
If "$u$2" = "" Then Exit Sub
Image1.Picture = LoadPicture("D:\k\" & CStr([h5]) & ".JPG")
End Sub

如果k文件夹没有此文件，会出错找不到此文件，怎么改此函数，让它不显示或者显示k文件中"无此相片.jpg"

wpxxsyzx · 发表于 2013-6-5 17:11

Private Sub Worksheet_Change(ByVal Target As Range)
If "$u$2" = "" Then Exit Sub
if dir("D:\k\" & CStr([h5]) & ".JPG")<>"" then
Image1.Picture = LoadPicture("D:\k\" & CStr([h5]) & ".JPG")
end if
End Sub

dickywjl · 发表于 2013-6-5 17:20

Private Sub Worksheet_Change(ByVal Target As Range)
If "$u$2" = "" Then Exit Sub
dim mFile as string
mFile="D:\K\" +[H5]+".jpg"
if dir(mfile)<>"" then Image1.Picture = LoadPicture(mfile) else Image1.Picture = LoadPicture("D:\K\无此相片.jpg" )
End Sub

silencezw · 发表于 2013-6-5 23:15

谢谢，就是我需要的，能否再加上适应单元格大小代码

chixun9999 · 发表于 2023-5-19 19:01

为什么我的显示不了jpg格式图片？

		自动登录	找回密码
密码			免费注册

[求助] execl vba image控件显示图像问题