delete group not object

K

karmela

Hi,
I have sheet, where there is a picture named Object 1 (an in formula bar is
formula =INSERT("Word.Picture.8";"") ) - this I need to leave on the Sheet.
Then there is Group11, which I need to delete

I have this part of macro but it deletes both objects.


Sheets(hlavni).Select
ActiveSheet.DrawingObjects.Delete

I tried also this code, but it didn't find anything.

For Each shp In ActiveSheet.Shapes
If shp.Type = msoGroup Then
shp.Delete
End If
Next shp

Could anyone find a mistake?

Thanks karmela
 
N

Nigel

Your second code >

For Each shp In ActiveSheet.Shapes
If shp.Type = msoGroup Then
shp.Delete
End If
Next shp

As the code refers to the ActiveSheet, make sure you have the one with the
objects selected when you run the code. Alternatively add an explicit
reference to the sheet. Also check are the sheets/objects protected?

For Each shp in Sheets("mySheet").Shapes

etc....
 
K

karmela

Hi,

in the code before I have reference to the right sheet with the explicit
name, I hade there the first code that goes ok, but deletes more then I want
to...

karmela
 
N

Nigel

Your first code works because it deletes all drawing objects. The 2nd code
should only delete the drawing objects that have been grouped, it does work
if you select the sheet before running the code, alternatively add an
explicit reference as I suggested.

Make sure objects and sheets are not protected

--

Regards,
Nigel
(e-mail address removed)
 

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


Top