Button to toggle visibility of all ovals on active sheet

[apathetic]

Hello,

I am trying to create a button that will either toggle the visibility of all the ovals on the active sheet, or two buttons that will turn the visibility of the ovals on and off. One of the problems i was encountering was being unable to figure out how to loop through all of the ovals on an active sheet without knowing the range of oval numbers. Any assistance would be greatly appreciated.

Thank you for your time.

[JosephP]

Please Login or Register  to view this content.

for instance

[apathetic]

I think I am doing it wrong because I am trying to do it using a macro and applying the macro to the button.

Please Login or Register  to view this content.

This does not work. I have little to no experience in visual basic, but I have some experience in C.

Thanks for the quick reply

[JosephP]

'does not work' means what exactly? error message? nothing happens?

[apathetic]

run-time error'1004:

unable to get the visible property of the Ovals class

[JosephP]

do you currently have some hidden and some visible?

[apathetic]

They are currently all visible.

[apathetic]

I don't know if this is any help to you but this is what I had before in the macro that worked to toggle the visibility of the ovals.

Please Login or Register  to view this content.

[JosephP]

weird-seems you can't read the property only set it so you need two buttons

Please Login or Register  to view this content.

for one and

Please Login or Register  to view this content.

for the other

edit: or if you want one button you can use a workaround

Please Login or Register  to view this content.

because you can read the visibility of a single shape :-)

[apathetic]

are you saying the entire code should be this?

Please Login or Register  to view this content.

If so, I am still getting the error:

run-time error'1004":

unable to get the Visible property of the Ovals class



Additionally does saving it as a macro enabled workbook do anything to affect this?

[JosephP]

no-you have to do that or you'll lose the code ;-)

I tested that code in both 2010 and 2011 and it worked in both versions

[apathetic]

Ok I think I solved the first problem. There was an oval that was visible, it was just off the screen... I replaced it with a donut and now I am getting a different error.


"cannot run the macro "...". The macro may not be available in this workbook or all macros may be disabled."

[JosephP]

try reassigning the macro to the button

[apathetic]

That was the first thing I tried. You have been a great help so far and I am very appreciative.

I had another idea. If I wanted to toggle a few specific ovals and not all of them can it simply be done using a modification of:

Please Login or Register  to view this content.

in combination with your toggle code:

Please Login or Register  to view this content.

[JosephP]

that oughta work-does it? ;-)

[apathetic]

I could not get it to work, but I have a workaround. Thanks for all your help.

[Norie]

Does this work?

Please Login or Register  to view this content.

[apathetic]

It did not work for all ovals but it worked for 1 out of 32.
Either way I have an alternate solution, thank you though.

[Norie]

Are some of the ovals grouped?

If they were the code wouldn't work for them.

[apathetic]

yes, all of the ovals are grouped with the exception of the one oval that worked with the code.

[Norie]

Try this, it worked with grouped ovals.

Please Login or Register  to view this content.

[apathetic]

Did not work for me. Only worked for the one oval that is not grouped.

Note: my ovals are not grouped with other ovals exclusively, some rectangles that I do not want hidden.

My problem has been solved but ill keep checking here for simple amusement. I have a solution that works for now. Ideally if you want to spin your wheels in your brain you can try to figure out how to define a type of object so that when you copy and paste that object you can hide all versions of that object that were duplicated.

If your interested here is my project I was working on and you can see my workaround for yourself.

http://www.mediafire.com/?pd0aybut9v5ur0b

The goal is to be able to hide all of the "mortars" even if i make more of them on another sheet. By that I mean I would be able to copy the template and design multiple "bases" on different sheets and be able to press the button on the sheet and hide the desired shapes on the sheet.

[Norie]

I should have said that by 'grouped ovals' I meant groups with ovals only.

Give this a try, it goes into each group it finds and checks for any ovals.

Please Login or Register  to view this content.