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

最新推荐文章于 2025-02-13 10:03:10 发布

taller_2000

最新推荐文章于 2025-02-13 10:03:10 发布

阅读量891

点赞数 5

分类专栏：图片单元格 VBA 文章标签：图片单元格中的图片插入图片 picture in cell Excel图片

本文链接：https://blog.csdn.net/taller_2000/article/details/143284761

版权

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

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

在这里插入图片描述

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

在这里插入图片描述

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

示例代码如下：

Function HasPicInCell(rCell As Range) As Boolean
    On Error Resume Next
    rCell.UpdatePictureInCellAlternativeText ""
    HasPicInCell = (Err.Number = 0)
    On Error GoTo 0
End Function

【代码解析】
第2行代码设置忽略运行时错误&

最低0.47元/天解锁文章