excel表格怎么自动导入照片

1.如何在excel中批量导入图片

比如你在SHEET1工作表批量插入图片，b列是图片名称，把在E盘下照片文件夹中对应名称图片插入到D列，按ALT+F11打开VBA，插入---模块---把下面代码复制进去。

Sub 批量插入图片（）

Dim wj As String

Dim rng As Range

Sheets("SHeet1").Select '选中要插入图片的工作表

x = [a65536].End(xlUp).Row '取得最后一行的行号

For i = 2 To x

na = Cells(i, 2) '从第二列（即B列）得到图片名称，并以此名查找图片

wj = "e：\照片" & "\" & na & ".jpg" '图片文件存储的路径与格式（.jpg）

If Dir(wj) "" Then

Cells(i, 4).Select '图片需要插入到第四列（即d列）

ActiveSheet.Pictures.Insert(wj).Select

Set rng = Cells(i, 4) '根据单元格的大小调整图片

With Selection

.Top = rng.Top + 1

.Left = rng.Left + 1

.Width = rng.Width - 1

.Height = rng.Height - 1

End With

End If

Next

MsgBox "图片插入完毕"

End Sub

退出VBA，在工具---宏---选择---批量插入图片（）---执行。

2.excel如何批量导入图片

excel批量导入图片的步骤：

1、点插入菜单——图片；

2、如果是连续的文件，选择第一张图片，然后按住SHIFT键选择最后一张图片，点插入；

如果不是连续的文件，按CTRL键分别选择每一张图片，点插入。

3.如何在EXCEL指定单元格中自动插入图片

用vba，按下ALT+F11，菜单：插入-模块，复制下面代码至代码框. 按F8执行 Sub addpicture()Dim FirstRow, LastRow As Integer, FileType As StringFirstRow = Sheet1.UsedRange.RowLastRow = FirstRow + Sheet1.UsedRange.Rows.Count - 1FileType = InputBox（"输入你的图片的后缀名"， "输入图片格式"， "jpg"）For i = FirstRow To LastRowNumb = Cells(i, 2).ValueWith ActiveSheet.Pictures.Insert("D:\PIC\" & Numb & "." & FileType).SelectSet Target = .Cells(i, 1)End WithWith Selection.Top = Target.Top + 1.Left = Target.Left + 1.Width = Target.Width - 1.Height = Target.Height - 1End WithNext iEnd Sub。

4.怎么在EXCEL表格自动插入图片,请高手指点,请说详细一点

用自动宏。

1.在开发工具里，双击打开 thisWorkBook输入：Private Sub Workbook_Open() ActiveSheet.Pictures.Insert("D：\我的文档\Pictures\201081819581139.jpg").SelectEnd Sub注：D：\我的文档\Pictures\201081819581139.jpg 这个是我的电脑里的图片，请换成你自己电脑的真实有效的图片路径。 2.切换到 Excel 并将该工作簿保存为启用宏的工作簿 （.xlsm） 3.关闭并重新打开工作簿。

当您再次打开该文件时，Excel 将运行Workbook_Open 过程。 。

..黑龙江省。

张志晨。

..助人为分。

.携手共进。

..。