*Resolved* Hide/Show Shapes

[TheRobster]

I'm trying to write a short piece of VBA code which will first of all show a shape (to cover part of the worksheet whilst some calculations are performed) then to hide it again once the calculations are complete.

I thought it would be easy but the code I have doesn't work. The code basically goes like this:

Shapes("BoxOut1, BoxOut2, BoxOut3").Visible = True
Perform the calcuations
Shapes("BoxOut1, BoxOut2, BoxOut3").Visible = False

This just returns an error though.....I don't think the SHAPE function is something that VBA recognises. I also want to be able to hide/show the shapes without having to select them. I thought that Selecting the shapes first and then using WithSelection....to hide and show them again might work, but I'd rather just use a command and not select them.

Anyone have any ideas?

Cheers
-Rob

[RobDog888]

You dont need to select the shape before change its visibility property. You
can use its index property to reference a particular shape in the shapes
collection. VBA does recognise the Shape object. Ex from MS VBA Help:

Set myDocument = Worksheets(1)
myDocument.Shapes(1).Flip msoFlipHorizontal
myDocument.Shapes("Rectangle 1").Flip msoFlipHorizontal

Also, try using the screenupdating method to update your
changes on the screen during calculations or shapes being shown / hidden.
Its like DoEvents in VB.

[TheRobster]

K, I got it working.

Cheers
-Rob

[RobDog888]

No prob.