Hide/Show Shapes on Worksheet??
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.Solid 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.Solid .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? TIA, Ken Loomis |
Hide/Show Shapes on Worksheet??
Hi Ken,
Try: ActiveSheet.Shapes("StdntHrsBbl1").Visible = False --- Regards, Norman "Ken Loomis" wrote in message ... 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.Solid 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.Solid .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? TIA, Ken Loomis |
Hide/Show Shapes on Worksheet??
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. Ken "Norman Jones" wrote in message ... Hi Ken, Try: ActiveSheet.Shapes("StdntHrsBbl1").Visible = False --- Regards, Norman "Ken Loomis" wrote in message ... 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.Solid 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.Solid .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? TIA, Ken Loomis |
All times are GMT +1. The time now is 03:43 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com