如何批量插入图片和图片名

A. 怎样在WORD中批量插入图片

方法一：
1、单击插入---->图片，如图所示；
2、在弹出“插入图片”对话框中选择存放图片的位置，此时按住
ctrl
键，你就可以用鼠标选择多张图片了；或者你也可以按 shift
键，然后单击选中一张图片，再单击另一张图片，则自动选中了这两张图片为对角线的矩形范围内的所有图片；或者直接按快捷键 ctrl+a
全选，全部选中。最后“插入”即可，如图所示。
方法二：
1、打开存放图片的位置，然后选中你的插入的全部图片；
2、在按下鼠标右键，选择“复制”；
3、word文档中，按下鼠标再按下右键，选择“粘贴”，即可快速想插入的多个图片。

B. excel如何批量导入图片

您好，方法
首先，我们在D盘（其他盘也可以）建一个文件夹，起名为“批量导入图片”（名字随意起），然后将需要导入到Excel中的图片放入此文件夹中。
接下来，我们使用Excel建一个工作表，输入“名称”、“照片”、“图片路径”。
在“图片路径”这一列，选中第一个单元格，输入如下内容：<table><img src="D:\批量导入图片\花朵1.jpg"width="130"height="120">。
这里有几点要注意：
1.存放位置和文件夹名称，根据你自己设计的填写。
2.照片名称要保持文件夹内的照片名字和表格中“名称”这一列所起的名字相同，不然导入照片会失败。
3.width=”130”、height=“120”是为导入的图片设定的大小，可根据需要自行设定数值。
Excel快速批量导入照片的方法
然后下拉“图片路径”列中的第一个单元格，将所有需要导入图片的行填充上述公式内容，根据“名称”列更改公式中的图片名字。然后，将每行列宽和行高调整成公式中所述的大小（比公式中的数值大即可）。
接下来，将更改好的所有公式复制，在图片存放的文件夹“批量导入图片”中建立一个记事本，将公式粘贴进去，保存记事本。
复制记事本中的内容，在表格中的“照片”一列粘贴，所有图片即导入成功。

C. 怎么批量把图片放到WORD里并附上该图的名称

Sub 选择重命名文件夹()

Application.ScreenUpdating = False

With Application.FileDialog(msoFileDialogFolderPicker) '运行后出现标准的选择文件夹对话框

If .Show Then myPath = .SelectedItems(1) Else Exit Sub '如选中则返回=-1 / 取消未选则返回=0

End With

If Right(myPath, 1) <> "" Then myPath = myPath & ""

'返回的是选中目标文件夹的绝对路径,但除了本地C 盘、D 盘会以"C:"形式返回外，其余路

径无""需要自己添加

Getfd (myPath)

Application.ScreenUpdating = True

End Sub

Sub Getfd(ByVal pth)

On Error Resume Next

Dim strPath As String

'插入两行

Columns("A:B").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

'设置B 行内容

Range("B1") = "目标名称"

Range("B2").Select

ActiveCell.FormulaR1C1 = "=RC[1]&"" ""&RC[2]&"".JPG""" '设置B 行内容为目标名称

Range("B2").Select

m = Range("C65536").End(xlUp).Row

Selection.AutoFill Destination:=Range("B2:B" & m) '填充B 行

'设置A 行内容为所选文件下所有图谱名称

Range("A1") = "原名称"

strPath = pth & "\"

f = Dir(strPath & "*.jpg")

k = 1

Do While f <> ""

k = k + 1

Range("A" & k) = f

f = Dir

Loop

'调整AB 列宽

Cells.Select

Cells.EntireColumn.AutoFit '调整AB 列宽

'重命名

a = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 3 'A 列最后可见单元的行号

For b = 2 To a

c = Range("a" & b).Value

cc = Range("b" & b).Value

Name strPath & c As strPath & cc '重命名

Next

MsgBox ("重命名完成")

End Sub

D. EXCEL中如何批量插入对应图片

步骤1、先做好需要插入图片的数据，再将对应的图片保存在一个文件夹里，建一个辅助列；

步骤2、输入公式="<table><img src=""xx"&A2&".jpg""width=""xx""height=""xx"">"，在xx处分别输入存放图片的文件夹名称、图片的宽度及高度，然后向下填充所有要插入图片的行；

步骤3、复制所添加的辅助列，在存放图片的文件夹新建一个文本文档，打开文本文档粘贴，复制文本文档；

步骤4、返回excel表格，在图片列第一行空白处右键，点击选择性粘贴，选择Unicode后点击确定；

步骤5、调整第一张图片的列宽和行高，选中调整好的行，点击格式刷，向下刷动；

步骤6、如果觉得图片不明显，可选中一张图片，按ctrl+a再选中所有图片，点击格式，选择图片边框给图片添加一个边框即可。

E. 如何在EXCEL表格中批量插入对应图片

在导入图片的时候，因为大量数据，一个一个上传是非常慢的，这里分享下快速批量导入图片的方法。

1、首先打开excel表格，在表格里面先编辑好文档，选中需要插入图片的表格。

F. word批量导入图片和图片名，并生成多列表格，怎么操作

一、批量导入图片：创建表格1、点击插入——表格——选择两列一行即可

2、全选表格后右键设置属性——点击选项——取消自动重调尺寸以适应内容——点击确定3、将鼠标放在第一个单元格内——点击插入——图片——按住ctrl+a全选图片——插入4、看一下效果，图片是不是都在一列了，而且大小也相同了，选择右侧空白列——右键删除列5、最重要的一步就是选中表格所有内容，按CTLR+H调出查找替换窗口在查找内容中输入(?)

替换内容中输入1^p

选中搜索选项中的使用通配符全部替换

2、将鼠标放在新建的题注"图1"后按 alt+f9 键显示域代码—— 按CTRL+H调出查找替换窗口

查找内容为：^g

替换内容为：^&^p^c

选择全部替换完成后删除一个多余的域代码

注意：前面已经做过查找替换的操作，别忘记通配符要去掉勾选！

3、按Ctrl+A全选整篇文档后按Alt+F9更新域代码，图片下的编号已全部添加完成（全部显示为图1），再按一次F9刷新后所有编号自动更新

4、选中所有内容后设置居中排列——点击文件——选项——显示——段落标记——点击确定即可

G. 如何大量批量修改文件夹和图片名字

批量修改图片名称的方法：

步骤1，先下载工具软件，然后安装打开。点击下图两个红框中的任意一个，将需要修改名称的图片全部添加到软件中，可以从不同文件夹中添加。

H. excel表中批量导入照片

我们之前讲过条码打印软件中批量插入图片的几种方法，有图片名称是有规律的序列号导入方法；有图片名称没有规律，将图片名称批量重命名为序列号导入方法，比如：erweima(1),erweima(2)……；还有图片名称没有规律，使用小工具将图片路径提取到TXT文本中导入方法。今天我们来讲一下中琅条码打印软件中图片名称没有规律，且在Excel表中保存着，按照Excel表中顺序进行插入图片的方法。

我们可以看到图片是按照Excel表中的顺序进行批量插入的，如果想要改变图片的插入顺序，只需要修改Excel表中图片名称顺序即可，另外Excel表中的图片名称需要和图片文件夹中的图片名称保持一致，否则无法导入到软件中。

I. excel怎样批量在批注插入图片

Subpztp()

OnErrorResumeNext

DimcAsRange,P$,i&,a$,b$,arr,w!

P="F:唐狮图片唐狮图片"

ForEachcInRange([c2],Cells(Rows.Count,3).End(3))

Withc

.ClearComments

.AddComment

.Comment.Shape.Fill.UserPictureP&.Value&".jpg"

a=get_file_dim(P&.Value&".jpg")

Fori=1ToLen(a)

IfMid(a,i,1)Like"[0-9x]"Then

b=b&Mid(a,i,1)

EndIf

Next

arr=Split(b,"x")

b=""

w=200'设置图片宽度

.Comment.Shape.Width=w

.Comment.Shape.Height=Val(arr(1))/Val(arr(0))*w

EndWith

Next

EndSub

Functionget_file_dim(ByValfilepathAsString)

arr=[{161,162,163,164,31}]

Dimbrr(),sz,iAsByte

ReDimbrr(1ToUBound(arr))

SetObiFolder=CreateObject("shell.Application").Namespace(Left(filepath,InStrRev(filepath,"")))

Fori=1ToUBound(arr)

sz=ObiFolder.getdetailsof(ObiFolder.Items.Item(Right(filepath,Len(filepath)-InStrRev(filepath,""))),arr(i))

IfszLike"*[0-9]x[0-9]*"Then

get_file_dim=sz

ExitFor

EndIf

Nexti

EndFunction