Check if cell contains shape

[dummies]

I would be grateful if someone could help me to check if cell contains shapes.
In a cell their is word called “present and absent ” if present is circled, then display “present ” in another sheet range h27 and if “absent ” is circled than display absent but If cell does not contain any shape (I mean if both the present and absent is not circled than display nothing on h27) than display nothing on h27 .
I tried to in that way but it is not taking me anywhere .so I will be very grateful if someone could point me into right direction.
Thank you so much .
<quote >
If ws.Range("H27").Shapes.Count > 0 Then
InputArr(tenure.attendance ).Value = "present"
Else
If ws.Range("H27").Shapes.Count = 0 Then
InputArr(tenure.attendance ).Value = "absent"
End If
</quote >

 

[steve the fish]

To be honest you are best to rethink your approach. I cant see this way being successful from what you have said. Use the words 'present' or 'absent' in the cell and test that would be my advice.

 

[dummies]

To be honest you are best to rethink your approach. I cant see this way being successful from what you have said. Use the words 'present' or 'absent' in the cell and test that would be my advice.

Thank you for the response.I don’t know why but it is not working.
I saw some using the position of the shape like if shape is on the right side then display present and if shape is left side of the cell then absent but I am lost while using the position object of the shapes .

 

[steve the fish]

Its possible to determine the size and position of a shape on the worksheet. Its possible to determine the size and position of a cell on the worksheet. But what exactly does on the right side mean? Wholly right? Mostly right? Doesnt cross the upper boundary of the cell? Doesnt cross the lower boundary of the cell? What to do if it does. How is the shape being created on the worksheet? How will the code refer to it? Like i say i think too many pitfalls without knowing more. Lot simpler to just type either 'present' or 'absent' in a cell.