插入图片格式问题

keenzhou

写了代码,批量插入图片,但是图片格式只能是一种,但是我图片格式可能是很多种,如何改代码呢?
下面这句.png 如何修改? 则可以识别.jpg .png .bmp 等等其他格式?
myName = Dir(myPath & "\" & UCase(Trim(ActiveSheet.Cells(n, StyleCodeCol).Value)) & ".png")

代码如附件, 网上查过,这个后缀,需要定义一个数组变量,然后让程序在数组变量里查找对应图片格式,但是这个变量,怎么插入到代码中,插入到哪个位置.始终搞不准
dim p, picarr
picarr=Array(".jpg", ".png",".gif",".jpeg",".bmp")

爱疯

& ".png"
改成
& ".*"



这样行吗

keenzhou

爱疯 发表于 2019-3-21 18:06
& ".png"
改成
& ".*"

试过了,不行,每次只能选一个格式的图片,很麻烦,因图片来源的格式不统一.

爱疯

建议上传附件，方便别人理解和测试

keenzhou

爱疯 发表于 2019-3-21 21:12
建议上传附件，方便别人理解和测试

已经上传了,搜索过其他人的帖子,需要定义一个数组变量来综合这个后缀,然后让程序在数组变量里查找对应图片格式,但是这个变量,怎么插入到代码中,插入到哪个位置.始终搞不准
dim p, picarr
picarr=Array(".jpg", ".png",".gif",".jpeg",".bmp")
for p = 0 to ubound(picarr)

爱疯

你运行出错吗？如果出错，能发个截图吗

ahn

也不一定非得「需要定义一个数组变量来综合这个后缀」，实现的方法多着呢。