excel批量插图代码
批量插入100张图片，我只需5秒钟！
批量插入100张图片，我只需5秒钟！
关键字：批量插入；excel教程；图片
栏目：小技巧
全文370字，预计1.5分钟读完
哈喽，大家好呀！
每天一个Excel视频小技巧，excel水平蒸蒸日上~
今天教大家如何批量插入图片。
照例，先上一个柳之老师给大家录制的小视频：
不方便查看视频的同学，这里还有图文讲解版。
如图所示，我们想要在图片那一列，批量插入图片。
首先，我们在D2单元格输入公式=C2，回车。
然后，鼠标放到单元格右下处，当出现+字图标时，双击鼠标，填充公式，得到下图的效果。
下面，我们点开这个批量插入图片的小工具，其实就是一个VBA 代码制作的小按钮。
然后，选择图片所在的文件夹，找到我们的文具图片，然后确定。
选择需要插入图片的区域，我们选择图片列的第一个单元格，然后按住Ctrl+Shift+↓，全选，点击确定。
好啦，大家可以看到，我们的图片就已经批量插入到我们的Excel 表中。
另，视频中还有为何要在图片列输入图片名称的解释。
感兴趣的同学可以自行去视频中进行查看哟！
对了，之前还给大家讲过如何批量获取文件夹下的文件名。
视频在此。
好啦，以上就是今天的所有内容啦！。
Excel批量插入照片，制作员工信息登记表全民学Excel
Excel批量插入照片，制作员工信息登记表全民学Excel准备工作1、首先，创建一个文件夹，然后把每个员工的照片全部放进去，当然，你肯定需要将照片命名为员工的姓名。
这里我把所有照片放到了【F:\图片】位置。
2、把表格制作好，我们最后插入照片。
操作步骤步骤一、以我的表格为例，我在E列中插入所有员工的照片。
先选中E2单元格，然后在编辑栏中输入代码：【='<table><img src=''f:\图片\' &B2 &'.jpg'' width=''70'' height=''88''>'】步骤二、输入完后，我们向下填充序列，拖满整个数据表格。
步骤三、新建一个记事本，将刚刚填充的E2以下的单元格数据全部复制到记事本中。
步骤四、将表格中E2以下单元格数据全部删除掉。
步骤五、复制记事本中所有数据，然后直接粘贴到E列中。
步骤六、依次选中有数据的这几行，将其整体调整高度。
好了，我们的员工信息登记表就这样完成了，是不是非常的简单呀！原理说明这段代码【='<table><img src=''f:\图片\' &B2 &'.jpg'' width=''70'' height=''88''>'】是网页中的一段代码，主要是调用图片位置以及设置图片的宽度和高度。
f:\图片\：表示图片所在盘符以及位置。
width：图片宽度height：图片高度&B2 &：这里表示连接到B2单元格数据。
（在本篇教程中起到了重大的作用，步骤二中我向下填充序列，这里的函数可以向下复制B 列下面的名称，以对应我们文件夹中照片的名字。
批量插入图片vb代码
Sub 批量插入图片()Dim wj As StringDim rng As RangeSheets("工程竣工信息").Selectx = [a65536].End(xlUp).RowFor i = 4 To xna = Cells(i, 4)wj = "F:\00黎钦线\黎钦房屋竣工统计\图片" & "\" & na & ".jpg"If Dir(wj) <> "" ThenCells(i, 8).SelectActiveSheet.Pictures.Insert(wj).SelectSet rng = Cells(i, 8)With Selection.Top = rng.Top + 1.Left = rng.Left + 1.Width = rng.Width - 1.Height = rng.Height - 1End WithEnd IfNextMsgBox "图片插入完毕"End Sub方法如下：1、先建一个工作表，将它的标签名字改成“员工档案”表格的B列是各员工的姓名，E列暂时空着，一会儿将照片插入到这个位置，需要将E列单元格的大小调整一下，以便使插入的照片大小适中提示：插入到表格的照片，最终显示大小是以E列单元格的大小为准的，也就是说不论照片的实际大小是多少，都会被VBA缩放成E列单元格的尺寸。
2、准备几张员工的照片，保存到硬盘的指定位置。
此例中，我们的保存位置是"E:\照片\"在E盘的根目录建一个名为“照片”的文件夹，将照片粘贴进去。
3、编写VBA代码在EXCEL窗口中按ALT+F11调出VBA窗口，插入一个用户模块。
模块插入后会显示一个空白窗口，将下面代码粘贴进去就行了。
Sub 批量插入图片()Dim wj As StringDim rng As RangeSheets("员工档案").Select '选中要插入图片的工作表x = [a65536].End(xlUp).Row '取得最后一行的行号For i = 2 To xna = Cells(i, 2) '从第二列（即B列）得到员工名字，并以此名查找图片wj = "e:\照片" & "\" & na & ".jpg" '图片文件存储的路径与格式（.jpg）If Dir(wj) <> "" ThenCells(i, 5).Select '图片需要插入到第五列（即E列）ActiveSheet.Pictures.Insert(wj).SelectSet rng = Cells(i, 5) '根据单元格的大小调整图片With Selection.Top = rng.Top + 1.Left = rng.Left + 1.Width = rng.Width - 1.Height = rng.Height - 1End WithEnd IfNextMsgBox "图片插入完毕"End Sub4、完成经过上面步骤就制作完成了，可以使用了。
三分钟学会excel批量插入图片
三分钟学会excel批量插入图片有位朋友咨询如何根据条件在excel表格中指定位置插入图片。
这节课给大家分享插入图片的技巧。
案例分析：要求在G列输入产品名称后，在a~f列插入对应图片。
有可能一个名称对应几张照片1和2等等......主要知识点：Addpicture函数照片文件夹：实现代码：难点在于模糊匹配的实现有点难度。
否则代码不会这么长。
Sub 写入照片()Application.ScreenUpdating = FalseDim arr(), brr()For Each shap In Sheet1.ShapesIf shap.Type <> 8 Then shap.DeleteNext shapBname = Dir(ThisWorkbook.Path & "\图库\" & "*.jpg") '图片路径Do While Len(Bname) <> 0k = k + 1ReDim Preserve arr(1 To k)arr(k) = Left(Bname, Len(Bname) - 4) '将图片名写入数组Bname = DirLoopFor Each rg In Range([g2], Cells(Rows.Count, "g"))If rg.Value <> "" Then '如果单元格不为空，则做循环a = 0For i = 1 To UBound(arr) '对每个图片名做循环If arr(i) Like rg.Value & "*" Then '如果单元格的值在图片名的数组中能够找到类似的，则将满足条件的图片名arr写入新的数组a = a + 1flname = ThisWorkbook.Path & "\图库\" & arr(i) & ".jpg"Set rg1 = Cells(rg.Row, a)rg1.RowHeight = 100 '初期设定单元格高和宽rg1.ColumnWidth = 20Sheet1.Shapes.AddPicture flname, True, True, rg1.Left, rg1.Top, rg1.Width,rg1.Height'插入图片，核心语句ElseEnd IfNextElseEnd IfNextApplication.ScreenUpdating = TrueEnd Sub效果：。
电子表格批量插入图片
电子表格批量插入图片准备工作：1.整理好所插入的图片：具体批量插入图片操作：步骤一：写入图片路径，做到单元格中图片名称和插入的位置相对应。
具体进行如下操作：1.在图片插入位置写入图片定位公式：="<table><img src=""图片在计算机上面的路径\"&对应图片的单元格名称&".jpg"">"（注意：需要在内容输入位置输入公式（不要在单元格内直接输入公式），公式输入结束后按回车结束公式输入操作。
注意公式的标点符号为英文格式。
将公式写入到图片插入位置单元格后会看到实际表现出来的内容并不是我们所写入的，而是这个=“”之内的内容。
）2.完成第一个位置定位之后，下拉单元格，通过下拉自动填充完成整列的图片定位公式的写入。
步骤一例子：="<table><img src=""D:\360安全浏览器下载\始祖鸟\"&A2&".jpg"">"步骤二：步骤二例子：选中所有公式，复制。
ctrl+C+C在复制状态下，删除b列复制的内容。
（如果你不需要再原有位置显示图片，可以不删除，这里删除只是为了给要引用进来的图片腾地方）删除后，在剪切板中点击之前复制出来的内容。
使用选择性粘贴，并选择"unicode文本"方式。
之后图片就会出现在每一个所对应的图片插入位置列中。
ps：1、图片在批量插入后，对存放图片的物理文件夹中再增加图片时，excel里即使有相应的引用也不会自动更新，除非手动刷新，重插。
2、在插入图片前，最好先调整好表格的宽度和行高。
太小的话，插入的图片会堆积在一起，数量大时，很难排版。
3、本操作是在excel2003中进行的，2010等版本没有测试。
在Excel中批量插入图片
在Excel中批量插入图片
第一步：利用DOS命令创建带有（图片）文件名列表的excel工作薄代码：
1.在d盘信件images文件夹，将图片存入
2.开始—运行输入cmd回车
3.输入d:回车，输入d:\dir d:\images\*.jpg/on>批量插入图片.xls回车
即可在d盘创建文件：批量插入图片.xls
4.整理批量插入图片.xls文件
①选A列—数据—分列—固定宽度
②选文件名所在列D列—数据—分列—分隔符号—（下一步）勾选其他并输入点.
③删除其他列，只保留文件名所在列
第二步：利用HIML标签批量插入图片
代码：<table><img src=”d:\images\*.jpg”>（英文状态下输入）
1.在文件批量插入图片.xls的B1单元格输入<table><img
src=”d:\images\并回车
2.在D1单元格输入.jpg”>并回车
3.将A列文件名复制到C列
4.将B和D列下拉填充
5.将B、C、D列内容复制到记事本
6.整理记事本里的内容
①将空格全部去掉
②将imgsrc全部替换成img src
7. 将整理后的内容复制到文件批量插入图片.xls的B1单元格即可。
Excel 批量插入图片 VBA代码
Excel 批量插入图片VBA代码(2011-06-24 08:56:26)转载标签：excel批量插入图片代码杂谈在要插入图片的文件夹里新建一个Excel文件，打开这个Excel文件，在要插入图片的单元格里填上图片文件名（不要扩展名），选中要插入图片的单元格，修改单元格的大小以显示所需要的图片大小，运行宏代码。
1、Alt+F11调取VBA编辑窗口，查看代码，将以下代码全部复制进去；2、关闭VBA窗口，Excel-视图-宏-查看宏；3、Book1.xls!Sheet1.insertPic，选中所要插入图片的单元格，执行；4、图片自动插入对应的单元格中。
（图片尺寸均可通过单元格大小进行调解，边框可设置）代码如下：Sub insertPic()' 宏由 万加美酒编写，时间: 2009-6-1' Dir函数批量获取指定目录下所有文件名和内容On Error Resume NextApplication.ScreenUpdating = False '关闭屏幕更新Dim MR As RangeFor Each MR In SelectionIf Not IsEmpty(MR) And Dir(ActiveWorkbook.Path & "\" & MR.Value & ".jpg") <> "" Then MR.SelectML = MR.LeftMT = MR.TopMW = MR.WidthMH = MR.HeightActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).SelecterPicture _ActiveWorkbook.Path & "\" & MR.Value & ".jpg" '当前文件所在目录下以当前单元内容为名称的.jpg图片End IfNextSet MR = NothingApplication.ScreenUpdating = True '开启屏幕更新End Sub我想"按一下按钮，插入图片"我的vba code 如下:Sub Picture_Click_06202010()x = Cells (8, 4).ValueChDir "C:\Users\myname\Desktop\picture\"ActiveSheet.Pictures.Insert "x" + ".jpg"End Sub*** cells (8, 4) 的值是图片的名称我的vba code 有错...ActiveSheet.Pictures.Insert("C:\Users\myname\Desktop\picture\" & x & ".jpg")插入档案时请用全路径，不要用ChDir 变更工作路径，因为ChDir 无法处理变更工作磁盘。
在excel中自动批量插入相片的方法
在excel中批量插入相片的方法和代码1.首先要在需要插入相片的单元格输入相片名，如张三或李四，后面不要带“.jpg”了，因为在代码中已经设置，然后修改代码中的a1:a3为你自己需要批量插入相片的单元格范围。
2、在excel文档的同级目录下建立“照片”文件夹，将需要插入的相片复制到“照片”文件夹中，3、打开excel文档，点工具----宏---宏安全性----设为“低”---确定----关闭excel文档。
4、再打开excel文档，对工作薄标签（如sheet1）点右键---查看代码，对左上边出现的空白处点右键----插入----模块，然后双击新插入的模块，在右边出现的窗口中，将你修改过插入相片的单元格范围的代码复制到里面5、保存一下，可别忘了，否则刚才的工作可能就会白做了，点工具---宏---宏—双击“插入相片”以运行代码。
6、看看，相片是不是已经插进去了？呵呵，不难吧？多练习几遍。
代码：Sub 插入相片()On Error Resume NextSheets(1).Range("a1:a3").SelectDim MR As RangeFor Each MR In SelectionIf Not IsEmpty(MR) ThenMR.SelectML = MR.LeftMT = MR.TopMW = MR.WidthMH = MR.HeightActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).SelecterPicture ActiveWorkbook.Path & "\照片\" & MR.Value & ".jpg"'当前文件所在目录下以当前单元内容为名称的.jpg图片End IfNextEnd Sub。
EXCEL技巧之批量插入图片，动手试下，轻松搞定图表结合！
EXCEL技巧之批量插⼊图⽚，动⼿试下，轻松搞定图表结合！EXCEL插⼊单张图⽚，你是怎么操作的呢？⾃动匹配1000张图⽚，⼜该如何操作呢？举个栗⼦：要求把产品代码对应的图⽚附在后⾯，常规操作1、插⼊-图⽚-选择图⽚-调整⼤⼩-重复第⼀步操作缺点：效率低，产品代码多了，⽆法操作。
有没有更快捷的⽅法？有的！很快很迅速，⼀步到位！快捷操作如图：操作步骤：1、准备好图⽚的⽂件夹。
2、ALT+F11，调出代码窗⼝，复制粘贴代码。
（具体代码⽂末会有具体获取⽅式）3、回到表格，选定对应图⽚的名称，⽐如说：产品代码，就选择所有的产品代码：101-110.4、ALT+F8执⾏代码，即可，图⽚就会根据单元格⼤⼩⾃动匹配。
实操过程：具体代码如下：Sub 批量插⼊单元格图⽚()Dim rng, mr As RangeSet fd = Application.FileDialog(msoFileDialogFolderPicker) 'If fd.Show = -1 Thent = fd.SelectedItems(1)ElseExit SubEnd IfOn Error Resume NextFor Each mr In SelectionSet rng = Cells(mr.Row, mr.Column + 1)With rngML = .Left + 2MT = .Top + 1MW = .Width - 3MH = .Height - 1ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select Selection.ShapeRange.Line.Visible = msoFalseerPicture t & '\' & mr.Value & '.JPG'End WithNextRange('a1').SelectEnd Sub。
Excel 2007-2016单元格批量插入图片方法及代码
Excel2007-2016如何单元格批量插入图片不少经常使用EXCEL办公的朋友会发现，自从OFFICE更新到2007版本以后原先的百宝箱批量定位单元格插入图片的方法已然失效，即便可以插入也只可以在原电脑上使用，发给别人却无法显示.这篇文章正是针对这个问题的解决方案，这个方案是通过宏代码导入实现，非常简单，对宏是否有过了解皆不影响使用，只需几部便可以学会，下面介绍具体方法：第一步：设置EXCEL想要通过宏插入图片，第一步就是需要启用宏打开EXCEL 点击导航栏“文件”然后点击“自定义功能区”在最右侧主选项卡处勾选“开发工具”即可如下图所示：这一步做完你会发现，excel导航栏会多一个选项“开发工具”。
第二步：图片命名这一步就比较直白了，你如果要插入图片，肯定是需给所有插入图片的源文件可以定位的图片名，就不多介绍了。
第三步：插入图片这个方法插入图片前提条件便是要将你的excel文件与图片放在同一个文件夹下面。
首先鼠标批量选中需要导入图片的单元格，导入前请确认图片是否有选中的单元格，选中单元格后点击开发工具-宏如图，宏名随便，点击创建：进入如下界面：将红圈中文字全部删除，粘贴如下代码：Sub 插入图片到当前单元()' allmrysOn Error Resume NextDim MR As RangeFor Each MR In SelectionIf Not IsEmpty(MR) ThenMR.SelectML = MR.LeftMT = MR.TopMW = MR.WidthMH = MR.HeightActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select'当前文件所在目录下以当前单元内容为名称的.jpg图片erPicture _ActiveWorkbook.Path & "\" & MR.Value & ".jpg"End IfNextEnd Sub以上代码全部复制，关于以上代码有一点需注意：若图片文件格式为PNG格式，需要将如下图代码代码中.JPG 改为.PNG 即可复制好代码之后点击如下按钮运行即可，返回查看表格就可以发现图片已经顺利插入到单元格中。
excel2010 如何批量插入图片
如何在EXCEL2010中批量插入图片／并且图片与名字一一对应？
如下图：B列是图片的名字，C列是图形，要求插入超过500个图片。
1.首先将图片保存在已知路径下，例如E盘建了一个名为clong的文件夹，即：E:\clong
2.在C２单元格输入公式="<table><img src=""E:\clong\"&B2&".jpg"">"，
向下复制公式止C500列。
3.调出excel2010的剪贴板，home->点击clipboard（下图红色区域）。
4.选择C2:C500，按住ctrl+C，这样会将C2：C500之间的内容复制到粘贴板
上，点击一下粘贴板，就会将原有的C2:C500内容以文本的格式覆盖
C2:C500.此时 C2列的的公式就显示为："<table><img
src=""E:\clong\"XQM00VR_CH01ER TEMP
COMP_Tx_20140528_101433AM".jpg"">"
5．最后点击home->paste->paste special-> Unicode Text.就OK了。
然后就是调整图片大小，调整一下单元格大小，这个很easy。
注意：图片格式需要是.jpg.
-----豆豆笔，2014.5.29。
Excel表格中，如何批量插入图片？
Excel表格中，如何批量插⼊图⽚？看个动画先：代码如下：Sub InsertPic()'ExcelHome VBA编程学习与实践 by:看见星光Dim Arr, i&, k&, n&, pd&Dim PicName$, PicPath$, FdPath$, shp As ShapeDim Rng As Range, Cll As Range, Rg As Range, book$'On Error Resume Next'⽤户选择图⽚所在的⽂件夹With Application.FileDialog(msoFileDialogFolderPicker).AllowMultiSelect = False '不允许多选If .Show Then FdPath = .SelectedItems(1) Else: Exit SubEnd WithIf Right(FdPath, 1) <> '\' Then FdPath = FdPath & '\'Set Rng = Application.InputBox('请选择图⽚名称所在的单元格区域', Type:=8)'⽤户选择需要插⼊图⽚的名称所在单元格范围Set Rng = Intersect(edRange, Rng)'intersect语句避免⽤户选择整列单元格，造成⽆谓运算的情况If Rng Is Nothing Then MsgBox '选择的单元格范围不存在数据！': Exit Subbook = InputBox('请输⼊图⽚偏移的位置，例如上1、下1、左1、右1', , '右1')'⽤户输⼊图⽚相对单元格的偏移位置。
If Len(book) = 0 Then Exit Subx = Left(book, 1) '偏移的⽅向If InStr('上下左右', x) = 0 Then MsgBox '你未输⼊偏移⽅位。
Excel单元格批量插入指定图片
Excel单元格批量插入指定图片完成效果图：操作步骤：1.通过在单元格画矩形，得到单元格的高度和宽度。
占满单元格矩形的画法：【插入】→【形状】，点击矩形。
把光标移动到单元格左上角位置，按【ALT】键不放，再按鼠标左键从单元格左上角向右下角拖动，直到矩形占满整个单元格，放开鼠标左键，最后再放开【ALT】键。
矩形画出来后，查看其【大小和属性】，记下高度和宽度。
2.复制事先写好的公式到单元格A2：='<imgsrc='''&TRIM(LEFT(SUBSTITUTE(CELL('filename'),'[',REPT(' ',99)),99))&A2&'.png''> <table>'，此公式利用HTML引用图片的语法指定插入具体路径下的照片。
其中TRIM(LEFT(SUBSTITUTE(CELL('filename'),'[',REPT('',99)),99))是得到当前工作薄的路径。
A2&'.png'是姓名加文件后缀，png是图片格式，图片格式统一用一种，如果格式是jpg，就把公式中的png改成jpg。
3.A2公式向下填充。
复制所有公式，打开剪贴板，粘贴。
再选择性粘贴为“Unicode文本”，图片出现。
4.按照前面记下的单元格高度和宽度，设置所有照片的大小，注意要取消“锁定纵横比”和“相对图片原始尺寸”的勾选。
完成。
详细操作步骤请看以下视频：好了，今天的分享就到这里，谢谢大家！。
Excel2016批量插入图片如此简单，一行代码搞定
Excel2016批量插入图片如此简单，一行代码搞定
大家在制作员工信息表时会插入大量员工照片，使用常规方法插入逐个照片费时费力，其实用一行代码就可以搞定批量插入照片。
以下图为例，批量导入4张照片并且对应姓名行。
准备工作：
1、把要插入的图片复制到电脑的D盘的“照片”文件夹下面
2、照片的名称要和表格内的姓名相同
步骤1、在C2单元格输入代码，敲回车。
步骤2、填充C2:C5单元格
步骤3、复制C2:C5单元格内容到记事本
步骤4、将记事本的内容再复制回C2:C5单元格(使用Ctrl+V 粘贴快捷键)，出现4张图片。
步骤5、调整图片至适当位置
批量导入图片是不是很简单。
最后解释一下这段代码，img src=文件路径，这里的文件路径是D盘的照片文件夹下，对应A2姓名的图片名称。
width=60是插入后图片的宽度60，height=40是插入后图片的高度40。
好了，今天就分享到这里。
需要模板的小伙伴可以私信我，回复“分享”，获取精美图表模板和财务表格资源。
Excel技巧应用篇：一行代码插入图片并且跟人名一一对应
Excel技巧应用篇：一行代码插入图片并且跟人名一一对应HR在制作员工信息表时通常会插入大量图片，而且插入的图片要跟姓名一一对应，如果使用正常的图片插入方法，这肯定是一项非常费时间的工作。
其实所谓的批量插入，肯定是有技巧的，今天我教大家用一行代码批量插入图片，并且跟姓名一一对应！具体操作步骤如下：1、先将要批量插入的图片放在一个文件夹中，并且把照片命好名字，照片的名字需要跟表格中的名字一样。
2、在F3单元格中输入这行代码：="<table><img src=""F:\照片\"&C3&".png"" width=""80"" height=""60"">"，输入完之后按回车键，并将代码下拉填充至F9单元格。
代码解释：代码中的<img src="照片的文件路径"，我们的照片是存放在F盘下的照片文件夹中，后面用文本连接符将C列的姓名以及图片的后缀名“.png”拼接起来即可得到图片的完整路径。
w idth=“80”，height=“60”是图片插入到Excel中的高度和宽度。
3、按快捷键“Ctrl+C”复制F3:F9单元格区域中的代码，打开一个空白的文本文档或者Word文档，将复制的代码按快捷键“Ctrl+V"粘贴到文本文档中。
4、将文本文档中的代码再复制回Excel表格中，粘贴到F3:F9单元格区域，此时可以看到表格中已经插入了7张照片，我们稍微调整下图片的位置即可。
5、最后，我们可以将批量插入的图片跟文件夹的图片名称对照一下，可以看出人名跟图片都一一对上了。
用一行代码就完成了数小时才能完成的工作，这会大大提高我们的工作效率，代码不难记，自己有空可以试一试哦！。
实例11：用Python给Excel所有工作表添加图片
实例11：⽤Python给Excel所有⼯作表添加图⽚我们在实例9⾥⾯展⽰了如何批量填写每⽇出货清单，每⼀天的清单都是直接复制“出货单模板”，然后在其中填⼊出货产品信息的。
openpyxl有⼀个问题，就是在复制⼯作表的时候，⽆法跟着复制图⽚。
⽽我们的公司名⼀般⽐较个性化，在Excel中⽤⽂字很难达到那个效果，⽐如如下：此时，我们就需要使⽤到openpyxl模块的图⽚插⼊功能。
但这个功能有⼀个坑，我们下⾯来展开说明。
按照openpyxl的官⽅⽂档，添加图⽚只需如下⼏步：from openpyxl.drawing.image import Image #导⼊图⽚添加模块from openpyxl import load_workbook #导⼊Excel⼯作表操作模块img = Image('images\company.png') #需添加的图⽚所在路径wb=load_workbook('data\出货单.xlsx') #打开⼯作簿ws=wb[sheet_name] #获取⼯作表ws.add_image(img,'A1') #添加图⽚到指定的单元格wb.save('data\出货单_new.xlsx') #保存⽂件下⾯我们就按照以上说明来操作，看看效果怎么样。
from openpyxl.drawing.image import Imagefrom openpyxl import load_workbookimg = Image('images\company.png') #需添加的图⽚所在路径wb = load_workbook('data\出货单.xlsx') #打开⼯作簿sheet_names=wb.get_sheet_names() #获得⼯作簿的所有⼯作表名for sheet_name in sheet_names: #遍历每个⼯作表，并在每个⼯作表的A1单元格插⼊图⽚ws=wb[sheet_name]ws.add_image(img, 'A1')#添加图⽚到指定的A1单元格，图⽚左上⾓将与A1单元格左上⾓对齐wb.save('data\出货单—new.xlsx')我们通过遍历“出货单.xlsx”⽂件中的所有⼯作表，然后每个⼯作表都在A1单元格插⼊我们设定好的图⽚，最后保存。