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

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

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