Sub test4()
For Each pict In ActiveSheet.Shapes
firstrow = pict.TopLeftCell.Row
firstcolumn = pict.TopLeftCell.Column
myheight = pict.Height 'pixiles
mywidth = pict.Width 'pixiles
lastrow = pict.BottomRightCell.Row
lastcolumn = pict.BottomRightCell.Column
totalrows = lastrow - firstrow + 1
totalcolumns = lastcolumn - firstcolumn + 1


Next pict

End Sub
"MM User" wrote:

Hi,

This is a follow up from my previous mail, is it possible to check if a
picture is present on a particular cell i.e. check if graphic1 exist on Cell
A1 and also check its size?

Thanks!