Changing the color of a shapes' bordesr when unhiding them

Hello all,

I'm using the following macro (which is assigned to a checkbox) to hide/unhide the border of some shapes in a group:

Public Sub Show_Borders(nameObject As String, indDisplay As Boolean)

ActiveSheet.Shapes(nameObject).Line.Visible = indDisplay
End Sub

The code works, but when I hide and then unhide the borders, they are black when I unhide them. How could I add some code that would cause them to return as a color other than black?

Any help would be greatly appreicated. Thanks!
Jackson

Change 34 to whatever colour index you want to use

Public Sub Show_Borders(nameObject As String, indDisplay As Boolean)

ActiveSheet.Shapes(nameObject).Line.Visible = indDisplay
    With ActiveSheet.Shapes(nameObject).Line
        .ForeColor.SchemeColor = 34
        .BackColor.SchemeColor = 34
    End With
End Sub

Thanks, yudlugar!

The RGB colors I want to input are (79, 129, 189). How would I input those?

Public Sub Show_Borders(nameObject As String, indDisplay As Boolean)

ActiveSheet.Shapes(nameObject).Line.Visible = indDisplay
    With ActiveSheet.Shapes(nameObject).Line
        .ForeColor.RGB = RGB(79,129,189)
        .BackColor.RGB = RGB(79,129,189)
    End With
End Sub

I think that works, there is also a forecolor.type but that should automatically change to msoColorTypeRGB when you change the RGB property, otherwise you will need to add .forecolor.type = msocolortypergb