Macro to select all objects but one and delete

Hi all

I cant seem to get my macro to work, this is what I've got:

ActiveSheet.DrawingObjects.Select
ActiveSheet.Shapes.SelectAll
ActiveSheet.Shapes.Range(Array("Rectangle 14")).Deselect
Selection.Delete
Columns("A:X").Select
Selection.Delete Shift:=xlToLeftAndUp

I'm getting an error at the section that I am telling the macro to "select all objects" apart from "rectangle 14" rectangle 14 is the button I will use to activate the macro.

Can anyone help me?

Firstly, apologies for not wrapping the text, if I'm honest I wanted to wrap it (it looks nicer as well as being easier) but I couldn't figure out where the button was (its the simply # button I have now realised)

I have attached the workbook to this document to show you what I want, i have some samples in their currently, the worksheet I am editing is called "Data Storage" "rectangle 14" is fixed so that cells don't move it, what I need to happen is when that button is pressed it runs the macro to delete all objects on the page, bar the button, and also reset's the pages size, therefore when you press it and save the file size goes as if going back to "blank"

I will give your previous macros a go and see if it fixes it.

Originally Posted by Richard Buttrey

I don't understand the requirement

When the shapes other than shape 14 are deleted you have a blank page other than two cells in column A with the word "January", which I presume are redundant.

Can you add a copy of the sheet showing what it should look like after the shape deletion macro?

So that page is where I will store pictures of the data from the other page, I have another macro that pastes the pictures on the page for me to store for 12 months, or however long I want them.

the "clear YTD data" button just needs to clear the data on that worksheet leaving it completely blank apart from the macro enabled button on the top right.

So basically I just want that button to delete all contents on that page, barr the button, but I don't want the page length or file size to remain the size that it is when the data was there.

eureka!

I solved it!

Please Login or Register  to view this content.