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