excel批量导入图片的方法和例子

内容提要：文章分享了三个excel批量导入图片的典型案例：查找对应姓名的照片、批量导入图片等等，并提供附件下载。对Excel感兴趣的朋友可加 Excel学习交流群：284029260（www.itblw.com）

　　excel批量导入图片一般是使用VBA代码实现，因为excel功能的局限性，插入——图片，尽管可以批量导入图片，但不能自动排版。

　　文章总结几个excel批量导入图片相关的案例，分享给大家。

excel批量导入图片案例一：

　　如下图所示：A列是姓名，D列需要批量导入A列姓名对应的照片，当单击“图片导入”按钮，即可批量导入图片。

　　下面的代码实现的功能是：批量导入图片，然后按照原比例缩放以填充单元格，如果单元格高宽改变，再次单击“图片导入”按钮即可。

　　说明：对应的图片命名需要和姓名一致，图片文件夹和excel源文件放在同一路径之下。

　　下面是具体的代码：

Sub 批量导入图片()
    '将图片导入。
    '图片按照原比例存储，按照原比例存储
    On Error Resume Next
    Dim R&
    Dim Pic As Object
    '先删除所有可能存在的图片
    For Each Pic In Sheet1.Shapes
        If Pic.Name <> Sheet1.Shapes("按钮 97").Name Then
            Pic.Delete
        End If
    Next
    For R = 2 To Range("A65536").End(xlUp).Row
        '插入图片
        Set Pic = Sheet1.Pictures.Insert(ThisWorkbook.Path & "\pic\" & Cells(R, 1) & ".jpg")
        '锁定高宽比
        Pic.ShapeRange.LockAspectRatio = True
        '看高宽比。如果图片高宽比高，那么调整到单元格高度，否则调整到单元格宽度
        '我们看到的右键格式菜单里的东西都是针对ShapeRange而言的，所以要用ShapeRange来设定
        With Pic.ShapeRange
            '如果图片高宽比比单元格大，说明图片太高，只需调整图片高度
            If .Height / .Width > Cells(R, 4).Height / Cells(R, 4).Width Then
                .Height = Cells(R, 4).Height
                '调整位置
                .Top = Cells(R, 4).Top
                .Left = Cells(R, 4).Left + (Cells(R, 4).Width - .Width) / 2
            '如果图片高宽比比单元格小，说明图片太宽，只需调整图片宽度
            Else
                .Width = Cells(R, 4).Width
                '调整位置
                .Left = Cells(R, 4).Left
                .Top = Cells(R, 4).Top + (Cells(R, 4).Height - .Height) / 2
            End If
        End With
    Next R
End Sub

　　我们在excel对图片进行排版时，可以选中图片，勾选对齐网格，以及在插入图片或控件时，按住Alt键并拖动对象的边框，可以快速调整尺寸适应单元格大小。

excel批量导入图片案例二：

　　利用excel制作职工基本情况统计表，如果将公司所有员工的照片都粘贴在EXCEL中，会造成EXCEL文件臃肿不勘。附件提供的文件和方法只需将员工照片与EXCEL放在一个文件夹内即可快速调用。

　　随着C2单元格选择不同的姓名，所有的资料信息和对应的照片会自动发生改变。下面是一个截图。

excel批量导入图片案例三：

　　按照级别批量插入对应的军衔图片。

　　第一步：在H2单元格中输入下列公式，下拉填充至H9单元格：
="<table><img src="""&REPLACE(CELL("filename"),FIND("[",CELL("filename")),99,)&"photo\"&G2&".gif"" width=72 height=48>"

　　第二步：复制H2:H9单元格→选中1个空单元格→单击编辑栏→将剪切板的内容粘贴到编辑栏内→在编辑栏内复制刚才粘贴的内容→单击H2单元格→Ctrl+V粘贴，完成批量导入图片。

　　三个案例对应的源文件和动画演示截图下载地址：http://115.com/file/anjz35mp#excel批量导入图片案例.rar

excel批量导入图片的方法和例子相关推荐

Excel批量导入图片并在右侧单元格备注名称
如下图所示,小编要分享的是,Excel批量导入图片并在右侧单元格备注名称的操作 (方方格子插件) 1.先看动图演示吧 2.选中A2第一个需要添加图片的单元格 3.然后选择方方格子的图片工具 4.那我们 ...
java实现excel批量导入图片到服务器
使用easypoi批量导入excel数据到数据库,excel中的图片上传到服务器 1.引入依赖 2.实体类demo 3.测试的excel文档样式 5.服务器文件操作工具类 6.IDUtils工具类 7 ...
excel批量导入图片名称和图片，图片与名称一一对应
在批量导入之前,我们要注意将图片文件的"排序方式"设为按"名称""递增". 打开Excel工作表,执行"数据"-&quo ...
Excel批量导入图片：1列为图片，1列为备注
如下图所示,我们需要在A列插入图片,在B列输入图片备注:然后再C列输入图片,在D列输入备注,如何一条龙插入操作呢,看动图演示 (方方格子插件) 1.选择A1单元格作为第一张图片存放位置 2.然后选择图 ...
订餐系统之Excel批量导入
批量导入现在基本已经成为各类系统的标配了,当前,我们订餐系统也不例外,什么商家呀.商品呀.优惠码之类的,都少不了.毕竟嘛,对非开发人员来说,看到Excel肯定比看到很多管理系统还是要亲切很多的.这里, ...
这篇文章告诉你excel批量翻译有什么方法
在商业或个人领域中,我们有时需要将大量文本翻译成不同语言,例如跨国企业需要在不同的国家和地区之间进行文件传输和协作,在旅行时我们需要阅读当地语言的信息或地图.如果我们手动操作的话,是非常耗时且容易出错 ...
IOS：批量导入图片和视频到模拟器的相册
批量导入图片和视频到模拟器的相册 IOS开发中我们经常会用到模拟器调试,模拟器有个主要的好处就是程序启动块,最重要的是如果没有证书的话,我们就只能在模拟器上调试了.使用模拟器调试时我们可能碰到需要从系 ...
Python批量导入图片生成能治疗颈椎病的HTML5版课件
本文要点:Python文件操作,HTML5的figure元素和CSS3属性的用法. 说明:1):本文图片来自于相关阅读中Python批量导出多个PPT/PPTX文件中每个幻灯片为独立JPG图片或Pyt ...
php批量添加excel数据库表,php 把excel批量导入到数据库代码
php 把excel批量导入到数据库代码我们是利用了ExcelFileParser这个扩展来处理的哦, Excel数据获取演示 Excel数据获取演示 /** * CopyRight (c) 200 ...

excel批量导入图片的方法和例子

excel批量导入图片的方法和例子相关推荐

最新文章

热门文章