Question

excel2007如何批量插入图片？我已经把图片名打在了表格里，怎么样将图片批量导入相应格中？

图片名都在表格里列出来了，图片也放在同一个文件夹里了
在线等答案，解决问题加悬赏

Answer 1

我在excel2003中使用下面方法成功，但不知07中是否也成功，你可以试一下。
1、将自己所用图片按次序排列好；
2、把光标定位到需要插入图片列的第一个单元格；
3、执行插入------图片------来此文件，找到存放图片的文件夹，全选图片，执行插入；
4、按Ctrl+G，调出定位菜单，在期中选中对象；
5、按Ctrl+1，设置图片大小，高度（3cm）宽度（2cm），记住一定要去掉锁定横向比前面的对勾；
6、按住鼠标左键将图片整体移到你所需要的位置。

Answer 2

Sub 单元格自动插入图片()
'选定起始单元格后，按一定行数(1-n)自动往返插入各种格式的图片，
'并在单元格中写入插入图片的名称。

Pf = "ai,"
Pf = Pf & "bmp,bmz"
Pf = Pf & "cdr,cgm,"
Pf = Pf & "dib,dwg,dxf,"
Pf = Pf & "emf,emz,eps,exf,exif,"
Pf = Pf & "fpx,"
Pf = Pf & "gfa,gif,"
Pf = Pf & "hdr,"
Pf = Pf & "ico,"
Pf = Pf & "jfif,jpe,jpeg,jpg,"
Pf = Pf & "pcd,pct,pcx,pcz,pict,png,psd,"
Pf = Pf & "raw,rle,"
Pf = Pf & "svg,"
Pf = Pf & "tga,tif,tiff,"
Pf = Pf & "ufo,"
Pf = Pf & "wdp,wmf,wmz,"

K = InputBox("插入行数，1=按列挿入", "插入行数", 1)
If K = "" Then Exit Sub
Dim Rng As Range: Set Rng = ActiveCell

OpenFile = Application.GetOpenFilename("Picture Files(*.*),*.*", , "打开目标文件夹后选择任一图片即可指定文件夹。或按取消则会将当前文件所在文件夹认作指定文件夹。")
If OpenFile = False Then
myDir = ThisWorkbook.Path & "\"
Else
myDir = Left(OpenFile, InStrRev(OpenFile, "\"))
End If
Filename = Dir(myDir)

Application.ScreenUpdating = False

Do While Filename <> ""
If InStr(Pf, LCase(Right(Filename, Len(Filename) - InStrRev(Filename, ".")))) > 0 Then
Rng.Cells(1 + n \ K, n Mod K + 1).Select
ActiveCell = Left(Filename, InStrRev(Filename, ".") - 1)

ActiveSheet.Pictures.Insert(myDir & Filename).Select
With Selection
.Placement = xlMoveAndSize
.ShapeRange.LockAspectRatio = msoFalse
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Height = ActiveCell.Height
.Width = ActiveCell.Width
End With
n = n + 1
End If
Filename = Dir
Loop

Application.ScreenUpdating = True
Rng.Select
End Sub

追问

没看懂。。。我图片（全是JPG格式）的地址是"C:\Users\acer\Desktop\pic\"，图片名在B列，图片要插在E列中与图片名相同行中，这上面的宏该怎么改？或者能不能发给你，你来帮我做一个出来~？

追答

不用改，直接复制上面的代码就可以用。
先把图片在文件夹里按照你输入到表里的顺序排好，点中E1单元格，然后启用宏。选择你的图片所在文件夹，就可以批量导入该文件夹下的图片，顺序就是你文件夹内的图片排列顺序。

Answer 3

插入相册再添加图片名

Answer 4

插入》图片》插入相册，然后按照提示操作！
ok！

Answer 5

飞