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

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....

--

Regards,
Nigel
(E-Mail Removed)



"karmela" <(E-Mail Removed)> wrote in message
news:3D81F157-0DED-48F3-8052-(E-Mail Removed)...
> 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

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

"Nigel" wrote:

> 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....
>
> --
>
> Regards,
> Nigel
> (E-Mail Removed)
>
>
>
> "karmela" <(E-Mail Removed)> wrote in message
> news:3D81F157-0DED-48F3-8052-(E-Mail Removed)...
> > 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
>

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 Removed)



"karmela" <(E-Mail Removed)> wrote in message
news:B5E0D81C-5607-4D13-A623-(E-Mail Removed)...
> 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
>
> "Nigel" wrote:
>
>> 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....
>>
>> --
>>
>> Regards,
>> Nigel
>> (E-Mail Removed)
>>
>>
>>
>> "karmela" <(E-Mail Removed)> wrote in message
>> news:3D81F157-0DED-48F3-8052-(E-Mail Removed)...
>> > 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
>>