Excel vba编程：怎样判断一个文件夹里是否有个叫a的图片文件？不用循环可以吗？

Sub a()
Dim myfile$
myfile = Dir("d:\a.JPG")
If Len(myfile) Then MsgBox "有" Else MsgBox "无"
End Sub追问

如果有一个变量d，我想将a.jpg这个图片对象赋给d，怎么写代码？

关键是怎么获取到一个a.jpg对象，赋值就是set就行了。

追答

Set P = ActiveSheet.Pictures.Insert("D:\b.JPG")
'可设置P.VISIBLE=TRUE OR FALSE

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vf37eyxv37fxxfxxj77.html