Using Excel .ColorIndex to specify color of the line around as shape

[OaklandJim]

I am trying to apply one of Excel's 56 built-in colors (e.g. color index 3 is red) to the line around a shape using the color's index. I see RGB-related solutions but nothing about the using a color index. Is this even doable?

With oShape
.ForeColor = 36 '<= does not work
.ForeColor.ColorIndex = 36 '<= does not work
End With

 

[igold]

How about this...

Sub shapbord()
    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim oshape As Object: Set oshape = ws.Shapes(1)
    oshape.OLEFormat.Object.Border.ColorIndex = 36
End Sub

 

[OaklandJim]

That works! Thank you.

 

[igold]

You're welcome, I was happy to help. Thanks for the feedback!