Checking for a picture

  • Thread starter Thread starter MM User
  • Start date Start date
M

MM User

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!
 
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
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Copying a Picture From Cell Comment 0
Excel [VBA] Check from a cell into another sheet and bring back result in MsgBox 0
checking data in the A column 6
Check boxes 4
Linked pictures to cell dropdown 1
How to check if a certain function is used 2
Excel Selected Cell's Content Magnification 3
Store a picture in a cell 3

Back
Top