Select Objects on worksheet based on size

[mrvain]

Hi,

I would like to know if it is possible with VBA in Excel 2007 to select objects based on size (or above a certain size).

I would like to select all the picture objects but not the small checkboxes on my worksheet.

I know that I can select the items one by one with home -> find/select -> select object but I would appreciate if I could make this "find/select" conditional.

with kind regards,

M<M>

 

[pgc01]

Hi
Welcome to the board

Can you explain what you want to do? You can select objects in vba, but it's rare that you need to. If we know what you need maybe we can help.

 

[p45cal]

Yes, it is possible to discrimnate by size, but

I would like to select all the picture objects but not the small checkboxes on my worksheet.<m>

rather than worry about size, consider type:
</m>

Sub blah()
ActiveCell.Select 'to deselect any shapes
For Each shp In ActiveSheet.Shapes
  If shp.Type = msoPicture Then shp.Select False
Next shp
End Sub

<m>pgc makes an important point.
</m>

 

[pgc01]

Remark: if you really want to select all the pictures in the active worksheet you can also use:

ActiveSheet.Pictures.Select

but, as I said, you don't usually select objects in vba.

 

[p45cal]

Remark: if you really want to select all the pictures in the active worksheet you can also use:

ActiveSheet.Pictures.Select

but, as I said, you don't usually select objects in vba.

I tried this before I posted - (in excel 2003) it selects activeX checkboxes too!

 

[pgc01]

I tried this before I posted - (in excel 2003) it selects activeX checkboxes too!

Hi p45cal

Thank you for the information. I did not know that that would happen.


Mrvain, sorry, please disregard my last post.

 

[pgc01]

P. S. It also selects other activeX objects like Textboxes, Buttons, etc.

 

[mrvain]

Dear Guru's

Thank you for your reply. As an amateur and not enough programming experience (= inventing the wheel every time again) it is difficult to make clear what you want but the pointers I got from you solved my issue. I can now discriminated between picture sizes in the selection.

code:

Sub blah()
ActiveCell.Select 'to deselect any shapes
For Each shp In ActiveSheet.Shapes
If shp.Width < 10 Then shp.Select False
Next shp
End Sub

With kind regards,

M.