delete pictures

[VilMarci]

Hi,

I have a source table, with staff information. I have a client-side table
that copies all the cells from it. (link not possible, because formatting is
important) The job is done by a macro that looks like:
....
Workbooks(ForrasFile).Worksheets(ForrasMunkalap).Cells.Copy
Workbooks(CelFile).Worksheets("linked").Cells
....
Unfortunately there's an embedded picture in the source doc, that also comes
to the client. The problem is that this happenes every time... I don't want
to have this pic 1000 times on my sheet after a week
How can I prevent this happen, or if not possible, how can I remove this
unwanted image? If easier, all pictures on the sheet?

Thanks,
Marton

 

[Guest]

VilMarci,

Try adding the following code line to your program:

ActiveSheet.DrawingObjects.Delete

It should remove every graphical object on the sheet.

HTH

 

[VilMarci]

Thanks,

I'll try this one also, looks easier than the one I got from an other forum:

For Each kepek In Workbooks(CelFile).Worksheets("linked").Shapes
kepek.Delete
Next

Marton