[已解决]搜索两种格式的怎样写

qhllqhll

求教两种格式的照片怎样写兼容：有 .bmp 和 .jpg 两种图片
Image1.Picture = LoadPicture(图片路径 & Range("b5") & ".jpg ")
请问能否写成下面的句子格式
Image1.Picture = LoadPicture(图片路径 & Range("b5") & ".jpg " or ".bmp "  )
谢谢了

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-23 19:31

1. Sub Macro1()
   
2. Dim fs, wj$, wj2$
   
3. Set fs = CreateObject("scripting.filesystemobject")
   
4. wj = 图片路径 & Range("b5") & ".jpg "
   
5. wj2 = 图片路径 & Range("b5") & ".bmp "
   
6. Image1.Picture = LoadPicture(IIf(fs.FileExists(wj), wj, wj2))
   
7. End Sub

复制代码

跳转到最佳答案楼层

爱疯

图片路径里哪些是jpg，哪些是bmp，有没有规律？

dsmch

1. Sub Macro1()
   
2. Dim fs, wj$, wj2$
   
3. Set fs = CreateObject("scripting.filesystemobject")
   
4. wj = 图片路径 & Range("b5") & ".jpg "
   
5. wj2 = 图片路径 & Range("b5") & ".bmp "
   
6. Image1.Picture = LoadPicture(IIf(fs.FileExists(wj), wj, wj2))
   
7. End Sub

复制代码

qhllqhll

dsmch 发表于 2015-1-23 19:31

非常感谢
{:1112:}