Hide/Show Shapes on Worksheet??


Ken Loomis

I am trying to create subs to hide or show certain shapes on a worksheet.

When I use the macro recorder to do that, I get this sub:

' Macro11 Macro
' Macro recorded 6/27/2005 by Ken Loomis

Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 8
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End Sub

So I thought I could use this sub for a specific shape:

Sub HideStudentHoursBubbles()
With ActiveSheet.Shapes("StdntHrsBbl1")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 0.75
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 0#
.Line.Visible = msoFalse
End With
End Sub

This seems to make no change to the shape at all and nothing I try seems toi
have an effect.

Can someone pleae help?

Ken Loomis

Ken Loomis

Thanks, Norman. That works great.

Still don't understand why the other code didn't work, but at least I have
something that does work.


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question