这个函数
Function CellImageCheck(CellToCheck As Range) As Integer
Dim wShape As Shape
For Each wShape In ActiveSheet.Shapes
If wShape.TopLeftCell = CellToCheck Then
CellImageCheck = 1
Else
CellImageCheck = 0
End If
Next wShape
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024