Hiding and Revealing Shapes in VBA

[Ark68]

I have three shapes with macro's assigned to them that I use as buttons. (I can't recall why at the top of my head, but they provided better functionality than userform buttons.)
I'm in a position now, that I require these buttons to be hidden until a certian code is encountered to reveal them.

What is the best way of going about doing this? Similarly, is there a way to disable macros from a shape in VBA?

 

[Andrew Poulsom]

You can set the Shapes' Visible property to True/False. What is the condition that determines their visibility?

 

[Ark68]

Hi Andrew ...

It will be a simple If / Then condition. If the value in B14 = yes, then reveal the series of three shapes (Buttons). When these three buttons are revealed, I'd like to disable the macro's of two other similar "button" shapes on the worksheet.

I'm not sure though where to get the shape's name to set the property. (these are drawn shapes found in the "Illustrations" section of the "Insert" ribbon) I'm assuming your referring to a code like shape1.visible=true ? But I don't know where to find the "shape1" reference.

 

[Norie]

The shape names will appear in the Name box to the left of the formula bar.

You can also change their name(s) there.

 

[Ark68]

Hi Norie ....
Thanks ... something new! I see the names have spaces in them (Rounded Rectangle 10). Is this how I would refer to it in VBA, with the spaces?
I tried to change the names, but when I wen't back to them, they were back to the original name.

 

[Ark68]

OK. Got it.
Is it possible to disable a macro from a shape without using enableevents?

 

[Ark68]

OK ... problems.

With wshmain
     btnexit.visible=false
end with

Results in an 'object required' error.

The shape is on the page and visible, worksheet is unprotected.

 

[Ark68]

OK ... problems.

With wshmain
     btnexit.visible=false
end with

Results in an 'object required' error.

The shape is on the page and visible, worksheet is unprotected.

 

[Andrew Poulsom]

Try:

wshmain.Shapes("btnexit").Visible = False