高效如风 Excel表格批量导入图片

来源 :电脑爱好者 | 被引量 : 0次 | 上传用户:ssaifengchen
下载到本地 , 更方便阅读
声明 : 本文档内容版权归属内容提供方 , 如果您对本文有版权争议 , 可与客服联系进行内容授权或下架
论文部分内容阅读
  如果需要插入的图片不多,可以使用手动的方法快速插入。先在Excel中输入员工姓名数据,点击“插入→图片→来自文件”,插入一张和员工对应的照片到B2。调整B2的大小和照片大小一致(可以略微大一些)。接着全选数据行列,使用鼠标调整行列数值,使得B列所有单元格都能够放置图片。
  定位到B2,点击“插入→图片”,然后按住Ctrl键选中需要插入的图片(选择图片的顺序要和姓名列员工的顺序一致),这样所有图片都可以插入到表格中。选中最后一张插入的照片,将其移动到对应的B列位置。按住Ctrl+A全选照片,点击“图片工具→格式→组合”,依次进行“左对齐”和“纵向分布”即可(图1)。
  如果需要插入的图片很多,那么还可以借助VBA脚本快速实现。首先将照片名称更改为与A列中的员工姓名一一对应。接着点击“开发工具→VB”。在打开的窗口输入如下代码(代码解释见语句之后半角单引号后的注释):
  Sub 批量插入图片()
  Dim cfan As String ’设置一个名为cfan字符串,将其作为图片路径变量
  Dim rng As Range
  Sheets("SHeet1").Select ’选中要插入图片的工作表
  x = [a65536].End(xlUp).Row ’取得最后一行的行號
  For i = 2 To x
  na = Cells(i, 1) ’从第1列(即A列)得到图片名称,并以此名查找指定位置的图片
  cfan = "e:\员工照片" & "\" & na &".png" ’指定图片实际保存位置和格式
  If Dir(cfan) <> "" Then
  Cells(i, 2).Select ’图片需要插入到第2列



  ActiveSheet.Pictures.Insert(cfan). Select
  Set rng = Cells(i, 2) ’根据单元格的大小调整图片
  With Selection
  .Top = rng.Top + 1
  .Left = rng.Left + 1
  .Width = rng.Width - 1
  .Height = rng.Height - 1
  End With
  End If
  Next
  End Sub
  这样,在Excel中会新增一个名为“批量插入图片”的宏,按提示运行这个宏,即可将所有照片按照员工名称插入到B列对应的单元格中(图2)。
  (为免去录入的麻烦,代码可直接下载: https://pan.baidu.com/ s/1o8sXq6A,密码: 7kim)。
其他文献
除了磁盘容量的总体掌握外,我们还常需要了解某些文件夹的空间占用情况。要获知文件夹的空间占用情况,通常需要用鼠标右键选择文件夹,从属性窗口中查看。但要想看清多个文件夹的占用情况,就只能用以下两种方法来实现了。  1. 使用第三方资源管理器软件  首先下载只有几百KB大小的绿色便携版文件资源管理器软件Tablacus Explorer。启动后在资源管理窗口中右键单击文件列表标题栏,然后从弹出的菜单中选
期刊
不同类型的浏览器均有各自的收藏夹,但任意两种浏览器之间不一定能直接共享收藏夹,因为它们虽然都具有导入导出网址的功能,但文件格式却不一定兼容。利用Transmute软件可实现各种主流浏览器收藏地址列表的一键传递共享。  Tr a n s m u t e有免費标准便携版可供下载,解压后直接运行Transmute.exe主文件即可启动到英文界面,点击“语言”菜单汉化为简体中文版。Transmute支持C
期刊
Q:国内的很多浏览器都是在Chromium的基础上开发而来的,包括常用的360浏览器、QQ浏览器、百度浏览器、猎豹浏览器等等。那么从什么地方可以下载到这个浏览器的最新版本呢?  A:可以从网上下载运行Chrlauncher这款小工具,运行以后它就会根据配置文件中的设置自动下载最新版本的Chromium软件了。不过在运行这款软件之前,首先需要在chrlauncher.ini文件中进行相应的配置。  
期刊
摄影大赛的比赛结果存放在一个Excel工作表中,有名次和姓名两列,现在需要将获奖名单中的前50名获奖者写入单位的通报中。通报是用Word编写的,如何才能将这些数据以多列格式编排到Word文档中?若将一列数据直接复制到Word文档中,然后再进行编排比较费事。如果能在Excel中将一列转换成多列,再复制粘贴到Word文档中,就会简单许多。  1. 公式法  在原有数据工作表的D 2单元格中输入公式“=
期刊
Latitude 5290是戴尔针对企业级商务用户推出的二合一设备,它可根据客户需求,单独定制TPM 2.0可选配硬件身份验证套装,比如接触式智能卡、触摸式指纹识别器、面部红外线摄像头等等,只是每添加一个模块就要付出相应的成本。  戴尔Latitude 5290并不是一款追求极致轻薄的二合一设备,它(屏幕部分)的机身厚度和重量分别为9.76mm和860g,只能说是便携性尚可,至少不如微软全新一代的
期刊
Q:Edge浏览器是现在微软主推的一款浏览器,虽然它在各个方面都和谷歌浏览器很类似,但是有一个非常大的缺憾,就是利用右键菜单无法对选中的关键词进行搜索。请问有没有什么方法可以弥补这个缺憾?  A:如果浏览器自身的功能无法解决这个问题,那么就可以考虑通过扩展来解决。首先安装一款名为edgecontextMenuSearch的扩展,安装完成以后就可以在网页上选中文本信息,然后点击鼠标右键进行搜索操作了
期刊
在Excel单元格中输入特定范围的内容时,一般会利用数据有效性生成下拉列表的方式进行,但如果源列表的内容太多(比方说有数百个),这时再通过下拉列表查找需要的值就很不方便了。如果采用智能感知的模糊查询下拉列表菜單输入,随着回车之前输入字符的增加,列表中可供选择的项目在逐渐减少,这样就更便于选择。那么这样的效果如何实现呢?其实,利用辅助列、CELL函数,再结合数据有效性,这样的模糊查询效果下拉菜单就很
期刊
在PPT中实现图表的交互效果可不是一件轻松的事,但如果使用一小段VBA代码,将Excel数据与图表连接起来,不轻松的事也变得轻松了。有了Excel数据与图表的连接,通过表单控件中的下拉菜单就可以在图表中根据菜单选择,突出显示所需要的数据图表(图1)。  1. 插入PPT图表  新建空白幻灯片文件,选择“插入”选项卡,点击“对象”,在弹出的窗口中选择“新建”,选定对象类型中的“Microsoft E
期刊
设置粒子路径  新建一个空白幻灯片,利用自选图形,按住Shift插入一条直线,选中直线,设置线宽为5厘米。选中线条,选择“口袋动画PA”选项卡,点开“图形绕排”菜单,按住Ctrl单击“快速复制”,在弹出的窗口设置复制数量为40个,下面的三个选项全部取消勾选,点击确定。选中所有线条,在“口袋动画PA”选项卡点击“随机设计”,在弹出的窗口切换到“大小”选项卡,调整对象处选择“形状大小”,大小排序处选择
期刊
在很多摄影作品中我们都可以看到高光效果,通过明暗对比制造出更醒目的效果。在PPT设计中,借助PPT组件也可以轻松打造出高光效果。比如我们要在幻灯片中表达“正能量是黑暗中的明灯”这样的主题,就可以利用PPT打造一个高光的明灯。  使用布尔运算打造灯泡  为了获得更好的高光效果,在幻灯片中点击“插入→形状”,按提示插入一个矩形,并将其填充为黑色作为背景色。操作同上,按住Shift插入一个椭圆并调整为大
期刊