批量插入文件夹里所有图片

维所慾維 · 发表于 2011-12-3 01:01

有没有大侠帮我看看红色部分怎么更改才能实现自动插入图片
ps:
d:debug\111文件夹里面有两个名字为:"11667344535777158.jpg", "11667344535777158_副本.jpg"的图片
当然我是举个例子,实际上不止两张图片
把红色部分想用个变量代替,不知道怎么实现它.

下面附有程序:
Sub hong1()
Dim arr()
Dim i As Long
Dim j As String
Dim x As String
Dim y As String
Dim z As String
arr = Array("11667344535777158.jpg", "11667344535777158_副本.jpg")
  For i = 1 To 2
j = arr(i)
Selection.InlineShapes.AddPicture FileName:= _
"d:\debug\111\11667344535777158.jpg", LinkToFile:=False, SaveWithDocument:= _
True
Selection.TypeParagraph
   Next i
End Sub

该贴已经同步到维所慾維的微博

cbtaja · 发表于 2011-12-3 07:09

"d:\debug\111\" & j

维所慾維 · 发表于 2011-12-4 11:05

cbtaja 发表于 2011-12-3 07:09
"d:\debug\111\" & j

谢谢啦,试验成功了.

szqhb · 发表于 2011-12-5 19:29

维所慾維发表于 2011-12-4 11:05
谢谢啦,试验成功了.

把导入你好多图片的代码拿来分享一下啊。

维所慾維 · 发表于 2011-12-5 22:02

szqhb 发表于 2011-12-5 19:29
把导入你好多图片的代码拿来分享一下啊。

这里有程序,我重新发了一条,很详细的代码解释.
http://club.excelhome.net/forum. ... p;extra=#pid5460921

ltz888 · 发表于 2012-1-24 23:30

不错啊，学习了

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

[求助] 批量插入文件夹里所有图片