当前位置:科普知识站>IT科技>

excel如何批量插入图片

IT科技 阅读(3.29W)

1、打开excel表格,在插入中点击“图片”,按装Ctrl”键选择三张图片,点击插入。 2、即可同时插入多张图片,下图为插入图片后的效果,三张图片大小不一。 3、按装Ctrl”后点击鼠标左键选择图片,可以同时选中三张图片。 4、点击鼠标右键,选择“大小

我们在使用excle制作表格的时候,往往会被要求插入图片。单张插入图片其实很简单,但是如果图片数量过多,单张插入图片就会很麻烦。接下来就为大家展示,在需要插入图片过多时,如何运用Excel批量插入图片。

excel如何批量插入图片

材料/工具

excle、电脑

Excel中如何实现批量插入图片?关键词:Excel;批量插入/添加图片;数据分析;张立良老师;数据小兵实际需求是推动持续学习与创新的最大动力。工作中经常需要在excel表格中插入对应的图片,一张、两张、三张、、、一张一张的插入你觉得已经够完

方法

假设你要用excle将4张图片批量添加到其序号后所对应的单元格中。

可以可以 如果插入的图片不多,就用自定义函数 插入的图片多,就 写个代码 图片名称要和L3一致,就可以。

excel如何批量插入图片 第2张

在序号所对应单元格后面输入一部分函数。

1、找到保存图片图片的文件夹,复制路径。 2、打开Excel表格,设置一下列宽。 3、再设置一下表格的行高。 4、然后把保存图片的路径复制到表格中, 输入公式=""。 5、输入公式后,把公式往下拉。 6、然后把公式全部复制粘贴到一个记事本中。 7、

如例子中:在B2单元格中输入函数 ="<table><img src="

百度知道>电脑/网络>常见软件>办公软件怎么在excel里批量快速插入图片并调整好大小一、前提:假设图片名称在A2:A15,不带扩展名,图片格式为jpg格式,图片保存在“D:图片”文件夹下二、操作方法:1、A2:A15输入图片名称(不带扩展名)2、B2输入

(注意:在输入函数是所用到的符号必须是英文符号)

在excel里的批注里是不可以批量添加图片的,只能一次添加一张,具体步骤如下: 需要准备的材料分别是:电脑、Excel表格。 1、首先打开需要编辑的Excel表格,右键单击批注的四边选择打开“设置批注格式”。 2、然后在弹出来的窗口中点击打开“颜色与

excel如何批量插入图片 第3张

确定所要添加的图片的地址以及文件类型。

1、打开电脑,首先在指定盘符中新建一个文件夹,并把需要导入到excel中图片复制到该文件夹内; 2、接着启动excel2010,调整整张表格的大小,这里可以在a列进行演示操作演示,然后选择单元格a1,点击执行公式选项,点击定义名称命令选项,从中选

点开所要添加图片所在的文件夹,就能在文件夹标题栏和文件名后面找到其所在的地址和文件类型。

Excel中如何实现批量插入图片?关键词:Excel;批量插入/添加图片;数据分析;张立良老师;数据小兵实际需求是推动持续学习与创新的最大动力。工作中经常需要在excel表格中插入对应的图片,一张、两张、三张、、、一张一张的插入你觉得已经够完

如例子中:其地址为 F:图片,其类型为 jpg

点击EXCEL上面的插入--图片--然后在跳出的选框内找到你药添加的图片,然后按住Ctrl,用鼠标左键点击你要添加的多个图片--点击下面的“插入”就全部插入了

(注意:”本地磁盘F,图片“可直接用“ F:图片”表示)

是不是要做批量超链接? 很简单 选择全部文档,同时按住shift+鼠标右键,选择“复制为路径” 粘贴在表格中,在路径的后方输入对应的链接名称。 输入链接公式“=hyperlink(A1,B1)”。 回车得到超链接,点击即可进入超链接,向下拖动得到其他超链接。

excel如何批量插入图片 第4张

继续完成函数,将需插入图片地址、文件类型、其序号所在单元格以及你需要的宽和高写入函数

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, 1) '从第一列(即A列)得到照片名,并以此名查找图片

如例子:"F:图片"&A1&".jpg""width="50""height=""100""<"

首先,需要将需要插入的图片放置一个文件夹内,建议对照片进行有规则的命名,这样可以方便快捷创建多个图片链接。 打开记事本程序,按如下格式输入图片的链接: 将记事本中的文本全选进行复制,在Excel工作表中,右击“照片”列第一行,从弹出的右

最终函数为 ="<table><img src=""F:图片"&A1&".jpg""width=""50""height=""100""<"

第一步、准备好对应的图片,名片的命名和Excel中要对应的名称相同。 第二步、将内容列进行复制,并且调出剪切板。 第三步、把名称进行汇总,把复制的名称放到一个单元格中。 第四步、为什么要使用替换功能呢,因为Excel导入图片,如果要批量的话

(注意:引用的单元格要加上绝对引用,即由A1变成&A1&

按ALT+F11,插入模块把下列的代码复制进去。 Sub 批量插入图片() Dim wj As String Dim rng As Range Sheets("SHeet1").Select '选中要插入图片的工作表 x = [a65536].End(xlUp).Row '取得最后一行的行号 For i = 1 To x na = Cells(i, 1) '从第

excel如何批量插入图片 第5张

用填充柄下拉将其他的单元格填充好。

操作步骤如下: 第一步、准备好对应的图片,名片的命名和Excel中要对应的名称相同。 第二步、将内容列进行复制,调出剪切板。 第三步、名称进行汇总,复制的名称放到一个单元格中。后用Ctrl+H,使用替换功能。 第四步、要批量的话,名称之间必须

提示:填充柄就是当你将鼠标放在单元格右下方变成的黑色实心十字架

Excel中如何实现批量插入图片?关键词:Excel;批量插入/添加图片;数据分析;张立良老师;数据小兵实际需求是推动持续学习与创新的最大动力。工作中经常需要在excel表格中插入对应的图片,一张、两张、三张、、、一张一张的插入你觉得已经够完

excel如何批量插入图片 第6张

将单元格中的函数一起复制

Excel中如何实现批量插入图片?关键词:Excel;批量插入/添加图片;数据分析;张立良老师;数据小兵实际需求是推动持续学习与创新的最大动力。工作中经常需要在excel表格中插入对应的图片,一张、两张、三张、、、一张一张的插入你觉得已经够完

如例子:B1到B4单元格中的 函数一起复制

导入图片还是导入超链接? 图片:用VBA是一下子的事 超链接:用公式也可以搞掂的

excel如何批量插入图片 第7张

返回桌面创建一个文本文件

第一步、准备好对应的图片,名片的命名和Excel中要对应的名称相同。 第二步、将内容列进行复制,并且调出剪切板。 第三步、把名称进行汇总,把复制的名称放到一个单元格中。 第四步、为什么要使用替换功能呢,因为Excel导入图片,如果要批量的话

1,在桌面单击鼠标右键

Excel中如何实现批量插入图片?关键词:Excel;批量插入/添加图片;数据分析;张立良老师;数据小兵实际需求是推动持续学习与创新的最大动力。工作中经常需要在excel表格中插入对应的图片,一张、两张、三张、、、一张一张的插入你觉得已经够完

2,选择”新建“选项卡

方法如下: 1、首先,需要将照片放置一个文件夹内,建议对照片进行有规则的命名,这样可以方便快捷创建多个图片链接。 2、打开记事本程序,按如下格式输入图片的链接: 3、将记事本中的文本全选进行复制,在Excel工作表中,右击“照片”列第一行,

3,再选择“文本文件”

可以用word的邮件合并功能啊,很强大的。在Excel表格中做好数据,用word来邮件合并,很适用你说的这种情况的。

excel如何批量插入图片 第8张

将复制的函数粘贴到文本文档中

excel如何批量插入图片 第9张

调节表格的宽和长,使得其能容纳下图片

excel如何批量插入图片 第10张

将文本文档中的函数复制到表格中。

在表格中单击右键,点击“选择性粘贴即可”,选择“unicode文本”即可

excel如何批量插入图片 第11张

excel如何批量插入图片 第12张

效果如下

excel如何批量插入图片 第13张

扩展阅读,以下内容您可能还感兴趣。

这种情况Excel 怎么批量插入图片?

是不是要做批量超链接?

很简单抄

选择全部文档,同时按住shift+鼠标右键,选择“复制为路径”

粘贴在表格中,在路径的后方输入袭对应的链接名称。

输入链接公式“=hyperlink(A1,B1)”。

回车得到超链接,点击zhidao即可进入超链接,向下拖动得到其他超链接。

excel如何批量导入图片

excel批量导入图片的步骤:

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

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

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

Excel如何批量插入员工照片

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, 1) '从第一列(即A列)得到照片名,并以此名查找图片

wj = "e:\pic" &

"\" & na & ".jpg" '图片文件存储的路径与格式(.jpg)

If Dir(wj) <> "" Then

Cells(i, 2).Select '图片需要插入到第二列(即B列)

ActiveSheet.Pictures.Insert(wj).Select

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

With Selection

.Top =

rng.Top + 1

.Left =

rng.Left + 1

.Width =

rng.Width - 1

.Height =

rng.Height - 1

End With

End If

Next

MsgBox "图片插入完e69da5e887aae799bee5baa631333335336532毕"

End Sub

如何在Excel中批量插入图片

最低0.27元/天开通百度文库会员,可在文库查看完整内容>

原发布者:dtminer

Excel中如何实现批量插入图片?关键词:Excel;批量插入/添加图片;数据分析;张立良老师;数据小兵实际需求是推动持续学习与创新的最大动636f7079e79fa5e9819331333433623764力。工作中经常需要在excel表格中插入对应的图片,一张、两张、三张、、、一张一张的插入你觉得已经够完美的了,遗憾的是,如果你遇到需要一次性大批量插入100张、1000张图片时,也是重复插入100次、1000次么?答案是你可以这么做,等到手抽筋的时候你大概会想,要是有一种方法大批量插入该有多好!——有!我自己惯性的插入三张图片后,我开始抱怨微软太不尽人意了。为什么没有批量插入图片的功能?于是我把问题推给了百度和谷歌,两位老大哥很快给出了答案——批量插入图片的宏、批量插入图片的小插件,惊喜下,试了各种方法,新浪博主ahzll的excel工具箱(Exceltool)让我心动不已。(点击进入:张立良博客;张立良微博;Excel工具箱下载)Exceltool工具介绍:EXCEL必备工具箱是一个的EXCEL插件,点击“安装”后就可以使用,绝大部分功能可以免费使用,与excel完全溶为一体。提供了密码去除、阴阳历转换、将选区存储为图片、身份证号码校验、工作表排序及生成目录、人工双面打印、专业水准的套表数据汇总、穿透查询等实用功能。工作表标签上点击右键还增加了轻松隐藏/取消隐藏工作表、工作表导出为文件功能。针对财务人员,还提供了个人所得税、未确认融资费用、按揭贷款/一般贷款利息、各种复利、

Excel批量插入图片求助

用此VBA代码可实现批量插入图片,但不知道你的文件的具体排版,所以无法针对性的进行调整,或者你弄个模板发过来,我帮你调整。

Sub InsertPicture()

Dim MyShape As Shape

Dim r As Integer

Dim c As Integer

Dim PicPath As String

Dim Picrng As Range

With ActiveSheet

For Each MyShape In .Shapes

If MyShape.Type = 13 Then

MyShape.Delete

End If

Next

For r = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row

' For c = 5 To 5

PicPath = ThisWorkbook.Path & "\图片\" & .Cells(r, 6).Text & ".png" '这里是你的图片存放的位置和图片的格式e79fa5e9819331333330333532

If Dir(PicPath) <> "" Then

Set MyShape = .Shapes.AddPicture(PicPath, False, True, 6, 6, 6, 6)

Set Picrng = .Cells(r, 9)

With MyShape

.LockAspectRatio = msoFalse

.Top = Picrng.Top + 1

.Left = Picrng.Left + 1

.Width = Picrng.Resize(3, 6).Width - 1.5

.Height = Picrng.Resize(3, 6).Height - 1.5

.TopLeftCell = ""

End With

Else

.Cells(r, 9) = "暂无照片"

End If

Next

' Next

End With

Set MyShape = Nothing

Set Picrng = Nothing

End Sub

参考资料:http://zhidao.baidu.com/question/262640274.html?oldq=1

本回答被提问者采纳