照例举个例子。如下图所示,工作表中存在多张图片,现在需要将其导出,并按图片向左偏移一个单元格,也就是A列单元格的值进行命名

导出后结果如下图所示:

如果不追求规范图片命名,只是导出Excel中的图片,倒不用VBA代码。将工作簿后缀名修改为rar,双击打开,依次点击xl→media即可。

但如果需要规范图片名称,就优先推荐VBA代码了。参考代码如下:

代码复制运行即可

看不全可以左右拖动..▼

Sub ExportPic()    Dim strPath As String, strPicName As String, strWhere As String, strPicFullName As String    Dim shp As Shape, k As Long, d As Object, x As String, y As Long    With Application.FileDialog(msoFileDialogFolderPicker)       If .Show Then strPath = .SelectedItems(1) Else: Exit Sub    End With    strWhere = InputBox("请输入图片名称相对图片所在单元格的偏移位置,例如上1、下1、左1、右1", , "左1") '用户输入图片相对单元格的偏移位置。    If Len(strWhere) = 0 Then Exit Sub    x = Left(strWhere, 1) '偏移的方向    If InStr("上下左右", x) = 0 Then MsgBox "你未输入偏移方位。": Exit Sub    y = Val(Mid(strWhere, 2)) '偏移的值    Set d = CreateObject("scripting.dictionary")    Application.ScreenUpdating = False    For Each shp In ActiveSheet.Shapes        If shp.Type = msoPicture Then            strPicName = GetPicName(x, y, shp.TopLeftCell)            If Not d.exists(strPicName) Then                d(strPicName) = 1            Else                d(strPicName) = d(strPicName) + 1                strPicName = strPicName & d(strPicName)            End If            strPicFullName = strPath & "\" & strPicName & ".jpg"            shp.Copy            With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart                .Parent.Select                .Paste                .Export strPicFullName, "jpg"                .Parent.Delete            End With        End If    Next    Application.ScreenUpdating = True    MsgBox "导出图片完成!" & Chr(13) & "路径:" & strPath, , "提示"End Sub
Function GetPicName(x As String, y As Long, rngShape As Range) As String    Dim strPicName As String    Select Case x        Case "上"        strPicName = rngShape.Offset(-y, 0).Value        Case "下"        strPicName = rngShape.Offset(y, 0)        Case "左"        strPicName = rngShape.Offset(0, -y)        Case "右"        strPicName = rngShape.Offset(0, y)    End Select    GetPicName = IIf(strPicName = "", "图片", strPicName)End Function

如何按指定名称快速导出Excel中的图片?相关推荐

  1. 自动化办公 | 快速从Excel中提取图片并匹配命名

    大家好,我是小五???? 关于自动化办公,之前我思考过好久.到底什么是自动化办公,哪些属于能真正提高我们工作效率的知识,哪些所谓的python自动化办公项目又是伪需求? 其实挺难断定的,可能大部分人用 ...

  2. Python 批量提取Excel中的图片,图片文件名按指定列存储

    openpyxl 以及 openpyxl_image_loader,conda或者pip无法安装的话,官网下载whl,然后pip安装本地包 [注意]:图片必须在单元格内,不能压过单元格边界 from ...

  3. excel导出_SpringBoot实现快速导出Excel

     阅读本文约需要6分钟  大家好,我是你们的导师,我每天都会在这里给大家分享一些干货内容(当然了,周末也要允许老师休息一下哈).上次老师跟大家分享了下MyBatis 几种通用的写法的相关知识,今天跟大 ...

  4. wps怎么把ppt里的字体一起保存_干货 | 如何快速导出PPT中的文字内容?

    原标题:干货 | 如何快速导出PPT中的文字内容? 我们经常需要将某些PPT演示文稿的文字部分导出到Word进行处理,但如果使用"创建讲义"的功能,则只是将幻灯片和备注同时导出到W ...

  5. 如何快速将EXCEL中许多手机号按移动和联通、电信自动分开,筛选出来

    如何快速将EXCEL中许多手机号按移动和联通.电信自动分开,筛选出来 这里讲两种方法: 第一种就是正常的excel函数公式: =IF(LEFT(A1,3)="134"," ...

  6. 用EasyPoi导出Excel中单元格图片(线上阿里云)

    用EasyPoi导出Excel中单元格图片(线上阿里云): 导出数据需要包含图片 问题描述 提示:这里描述项目中遇到的问题: 数据库中存储图片格式是阿里云(oss)的图片url,导出excel显示图片 ...

  7. java 读取excel 图片_利用Java+POI 读写Excel文档向Excel中插入图片

    一.POI简介 Jakarta POI 是apache的子项目,目标是处理ole2对象.它提供了一组操纵Windows文档的Java API 目前比较成熟的是HSSF接口,处理MS Excel(97- ...

  8. vb.net读取excel并写入dgv_如何用Python读取Excel中的图片?然后写入图片?

    大家好,在使用Python进行办公自动化操作时,一定少不了与Excel表格的交互,我们通常是用pandas处理表格数据,但大多数情况下,都是读取表格中的数值进行分析. 那么你知道如何使用Python读 ...

  9. 如何用Python读取Excel中图片?又如何用Python往Excel中写入图片?

    大家好,在使用Python进行办公自动化操作时,一定少不了与Excel表格的交互,我们通常是用pandas处理表格数据,但大多数情况下,都是读取表格中的数值进行分析. 那么你知道如何使用Python读 ...

最新文章

  1. Gold Code,Gold Sequence
  2. Facebook TensorMask:一种新的密集滑动窗口分割技术
  3. 安卓学习第36课——PopupWindow
  4. 访谈:摩尔定律后时代,看13位行业专家如何看量子计算机的未来?
  5. Python之sklearn-pandas:sklearn-pandas库函数的简介、安装、使用方法之详细攻略
  6. docker学习笔记(二)创建自己的镜像
  7. 删除文件夹下所有的文件_VB删除文件和文件夹的方法
  8. python 百度ocr识别_Python使用百度Ocr识别文字保存CSV
  9. 很多人现在还不知道的知识点,Python多进程和多线程详解!
  10. 关于python的垃圾回收机制_Python的垃圾回收机制
  11. python开放源代码的版本控制系统_几款版本控制工具SVN、GIT、CVS及Mercurial的比较...
  12. 如何解决MySQL闪退
  13. 【硬石科技】电机系列教学(基于STM32)——PID算法实现闭环控制
  14. 睡眠监测目前的原理分析
  15. VUE实现一个Flappy Bird~~~
  16. aardio - MsSql数据库+虚表示例
  17. R语言RSelenium包爬取动态网页数据前期准备(环境配置)-连载NO.01
  18. OSChina 娱乐弹弹弹——程序猿如何防火防盗防单身 OR 防败家?
  19. wechall靶场training系列通关记录
  20. Android Manifest merger failed with multiple errors参考解决方法

热门文章

  1. 休闲零食市场调查,哪些品类值得代理
  2. 基于ESP32CAM的手机app控制的图传小车
  3. GLSL std140布局规则
  4. Catalan数计算公式
  5. MEXGroup:晚间专题技术报告2020-07-28
  6. codePen前端编码神器
  7. flash_image
  8. 部门表(部门编号。等等)
  9. 英语见面礼仪:与各国友人见面必说的第一句话
  10. 分享一个Java生成二维码工具类