EXCEL 判断一个单元格中是否有图片

最新推荐文章于 2024-10-28 10:21:34 发布

最新推荐文章于 2024-10-28 10:21:34 发布 · 1.5k 阅读

文章标签：

#Excel

本文介绍了一段VBA代码，该代码用于检测Excel工作表中指定单元格[D8]是否存在图片。通过遍历工作表中的所有形状并使用Application.Intersect方法来确定形状是否与目标单元格相交，从而判断单元格内是否有图片。

部署运行你感兴趣的模型镜像

比如判断[D8]单元格里有无图片：

Sub MACRO1()
Dim SH As Shape, HASPIC As Boolean
For Each SH In ActiveSheet.Shapes
If Application.Intersect(Range(SH.TopLeftCell.Address, SH.BottomRightCell.Address), [D8]) Is Nothing Then HASPIC = True: Exit For
Next
MsgBox "[D8]单元格里" & IIf(HASPIC, "", "没") & "有图片"
End Sub

您可能感兴趣的与本文相关的镜像