Excel 365升级了新功能，支持两种不同的插入图片方式：
- 放置在单元格中（Place in cell），新功能，此操作插入的图片下文中简称为
单元格中的图片。 - 放置在单元格上（Place over cell），悬浮图片，Excel以前版本一直支持的功能
两种方式在Excel中的展示效果如下图所示。
如果希望使用VBA操作单元格中的图片，非常遗憾的是对象模型中并未提供相应的对象，并且该对象不隶属与Shapes或者Pictures对象集合。这就带来的一个棘手的问题，如何使用VBA代码判断一个单元格中是否包含单元格中的图片。
示例代码如下：
Function HasPicInCell(rCell As Range) As BooleanDim ShpCnt As Long, Sht As WorksheetSet Sht = rCell.ParentShpCnt = Sht.Shapes.CountrCell.PlacePictureOverCellsIf Sht.Shapes.Count = 0 ThenHasPicInCell = FalseElseHasPicInCell = (ShpCnt < Sht.Shapes.Count)Dim Shp: Set Shp = Sht.Shapes(Sht.Shapes.Count)ActiveCell.SelectShp.SelectShp.PlacePictureInCellEnd 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 RangeSet c = Range("A1")Debug.Print IIf(HasPicInCell(c), "", "不") & "存在单元格中的图片"
End Sub