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

来源:互联网 发布:龙之信条帅哥捏脸数据 编辑:程序博客网 时间:2024/04/27 21:13

比如判断[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