Delete Worksheets with a Background

[Gary's Student]

I have a set of workbooks each of which contain many worksheets. I need to examine each sheet and if it contains an applied Background, delete that sheet.

This is easy to do manually, but very tedious. Can it be accomplished with a macro?

 

[wigi]

This is easy to do manually, but very tedious.

What does the macro recorder give you? I mean, with almost 1,000 posts here I bet you can use the macro recorder and inspect the coding
For instance, record a macro when you apply the background to a sheet, then delete the background again, and stop the recorder.

 

[shg]

It doesn't appear that it is exposed in the object model. You can set it, but not read it.

 

[wigi]

Then it will be a manual job. Or SendKeys

 

[Teeroy]

There is no error produced if you try to remove a background that isn't there so just loop through all the sheets e.g.

Sub Remove_Background()
For Each Sht In Sheets
    Sht.SetBackgroundPicture Filename:=""
Next
End Sub

 

[shg]

Use SendKeys for what?

 

[wigi]

Stephen: to automate the job, which is now a manual tedious job.
Unless I misunderstood the question from the OP.

 

[shg]

@Teeroy: If I understand the original question, the problem is not how to remove the background, but to detect whether the sheet has one.

 

[Teeroy]

@Teeroy: If I understand the original question, the problem is not how to remove the background, but to detect whether the sheet has one.

@Shg, you are correct. I missed one word in the first post and ....

You can find out if a sheet has a background image by checking the workbook ZIP container to check for a sheet relationships element (e.g. sheet1.xml.rels) but you'd need to programmatically access the internals of the zip container which I've never done; I've only gone in manually to recover information. You probably also need to walk the XML tree to see whether it contains a reference to an image as well.

 

[shg]

Wow, great thinking!