excel批量导入图片 宏_怎么启用excel的宏

excel批量导入图片 宏_怎么启用excel的宏准备图片格式规范:C盘的picture文件夹,放100张有序命名的图片,即1.jpg,2.jpg,3.jpg…100.jpg插入图片规则:按照图片的顺序,依次插入表格的A列,让每个图片一个单元


Jetbrains全系列IDE使用 1年只要46元 售后保障 童叟无欺

准备

  图片格式规范:C盘的picture文件夹,放100张有序命名的图片,即1.jpg,2.jpg,3.jpg…100.jpg

  插入图片规则:按照图片的顺序,依次插入表格的A列,让每个图片一个单元格,1.jpg在单元格A1中,2.jpg在单元格A2中,3.jpg在单元格A3中…100.jpg在单元格A100中

法1-使用excel的宏机制

  参考链接:http://www.360doc.com/content/11/0503/16/5148091_114087373.shtml

  1. 先新建一个宏。可以依次点击【开发工具】->【录制新宏】->【停止录制】->【宏】;见下图

    excel批量导入图片 宏_怎么启用excel的宏

  2. 此时可以看到刚刚录制的宏,选中你刚刚录制的宏Macro1,点击【编辑】,见下图

    excel批量导入图片 宏_怎么启用excel的宏

  3. 将文件内容清空,【ctrl+A】->【delete】,将下面脚本复制进去,见下图

    excel批量导入图片 宏_怎么启用excel的宏

    

Sub Macro1()
'
' Macro1 Macro
' 宏由 Administrator 录制,时间: 2018/11/24
'
Dim cun As Integer
For cun = 1 To 100
    Range("a" & cun).Select
    ActiveSheet.Pictures.Insert("D:\picture\" & cun & ".jpg").Select
    Next cun
    

End Sub

  上面代码解释一下

  1) Sub Macro1()  指宏的名称
  2) F
or cun = 1 To 100 1表示第一行,100表示第100行,如果你有1000张有序图片,可以修改为1000
  3) Range("a" & cun).Select a表示执行这个宏是在A列
  4)ActiveSheet.Pictures.Insert("D:\picture\" & cun & ".jpg").Select 插入D:\picture路径的图片,格式为jpg
  4.快速删除指定图片的方法,
  参考链接:https://bbs.csdn.net/topics/390084451
  1)点击其中一张图片->【Ctrl+A】全选图片->单击鼠标【右键】->找到图片的【
属性】->选择【大小与属性】->调整【属性】“大小和位置随单元格而变”->确定
  2)然后删除对应的单元格,对应的图片也就都删掉了
 

法2-纯手工操作

  参考链接:https://jingyan.baidu.com/article/ca2d939d7896e0eb6c31ce91.html

  操作步骤

  1. 打开excel,调整行高列宽为自己想要大小

  2. 全选文件夹中图片,拖拽到excel中;

  3. 插入后,你会发现最后一张图片(即第100张)在最顶层,且是选中状态

  4. 通过属性调节第100张图片(即最上面的图片)的大小,和1中的行高一样

  5. 将第100张图片单独剪切复制A列的第100行

  6. 接着按快捷键ctrl+A全选图片,调整图片属性大小,和1中行高一样

  7.最后调整对齐格式,横向分布,纵向分布,最后左对齐   即可

  可能的坑

  图片直接拖到excel中,默认一般是文件夹中图片的顺序。但是不确定是图片新建顺序,还是图片命名规则。中间遇到excel中顺序和文件夹中顺序不一致的地方。

  慎重使用,仔细核对

  

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-站长,转载请注明出处:https://javaforall.net/166514.html原文链接:https://javaforall.net

赞 (0)
全栈程序员-站长的头像全栈程序员-站长

相关推荐

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

关注全栈程序员社区公众号