如何使用VBA识别Excel中的“单元格中的图片”(1/2)

Excel 365升级了新功能,支持两种不同的插入图片方式:

  • 放置在单元格中(Place in cell),新功能,此操作插入的图片下文中简称为单元格中的图片
  • 放置在单元格上(Place over cell),悬浮图片,Excel以前版本一直支持的功能

两种方式在Excel中的展示效果如下图所示。

如果希望使用VBA操作单元格中的图片,非常遗憾的是对象模型中并未提供相应的对象,并且该对象不隶属与Shapes或者Pictures对象集合。这就带来的一个棘手的问题,如何使用VBA代码判断一个单元格中是否包含单元格中的图片

示例代码如下:

vb 复制代码
Function HasPicInCell(rCell As Range) As Boolean
    Dim ShpCnt As Long, Sht As Worksheet
    Set Sht = rCell.Parent
    ShpCnt = Sht.Shapes.Count
    rCell.PlacePictureOverCells
    If Sht.Shapes.Count = 0 Then
        HasPicInCell = False
    Else
        HasPicInCell = (ShpCnt < Sht.Shapes.Count)
        Dim Shp: Set Shp = Sht.Shapes(Sht.Shapes.Count)
        ActiveCell.Select
        Shp.Select
        Shp.PlacePictureInCell
    End If
End Function

【代码解析】

第3行代码获取单元格所在工作表对象。

第4行代码获取Shapes对象个数。

第5行代码将单元格中的图片转换为单元格上的图片(Shape对象),如果不存在单元格中的图片,此行代码并不产生运行时错误,因此无法使用错误捕获方式来实现此功能。

第6行代码判断工作表的Shapes对象个数是否为零,如果满足条件,第7行代码返回False,即不存在单元格中的图片

否则,第9行代码设置返回值,如果第5行代码执行后,Shapes对象个数增加,说明存在单元格中的图片

第10行代码获取最后一个Shape对象,即被转换单元格中的图片

第11行代码看到多余,笔者使用Excel 365 [Version 2411 (Build 18210.20000)],如果不增加此行代码,将导致Excel崩溃,估计是Excel的Bug。

第12行代码选中Shape对象。

第13行代码将Shaped对象转换为单元格中的图片

使用如下代码核查A1单元格是否存在单元格中的图片

复制代码
Sub Demo()
    Dim c As Range
    Set c = Range("A1")
    Debug.Print IIf(HasPicInCell(c), "", "不") & "存在单元格中的图片"
End Sub
相关推荐
小雪人8281 天前
wps的excel如何转为谷歌在线表格
excel·wps
Brown.alexis1 天前
处理省市区excel数据加工成SQL
python·sql·excel
瓶子xf1 天前
第三家公司虽然用了powerbi,但更适合用excel
excel·powerbi
揭老师高效办公2 天前
打开多个Excel文件后快速关闭所有的文档,并且退出Excel应用
word·powerpoint·excel
l1t2 天前
美团龙猫(longcat.AI)编写的利用二分查找优化Excel的sheet.xml指定范围输出C程序
xml·c语言·excel·解析器
小羔羊的官方学习账号2 天前
整理期初数据用到的EXCEL里面的函数操作
excel·sap·期初数据整理
码农客栈2 天前
Qt读写Excel--QXlsx基本使用
qt·excel
海斗星河万里长2 天前
两款超实用办公插件推荐:Excel聚光灯与Word公文排版
word·excel
weixin_436525072 天前
多场景对练数据的 Excel 横向导出方案(EasyExcel 动态表头实践)
excel
@PHARAOH3 天前
HOW - 在浏览器下载一个 Excel 表格文件
前端·excel