Изменение цвета форм соединителей

Question

Я пытаюсь соединить формы прямоугольника через соединители в MS Excel через VBA, который отлично работает:

Sub ACT_PTRN()
Call Data_Model
    With ThisWorkbook.Worksheets("Data Model Overview").Shapes
        'connect Actuarial Portfolio with Pattern
        Set shpCON = .AddConnector(msoConnectorStraight, 10, 10, 50, 50)
        shpCON.ConnectorFormat.BeginConnect shpACTPF, 4
        shpCON.ConnectorFormat.EndConnect shpPTRN, 2
            With shpCON
                .Line.Weight = 2.5
                .Line.ForeColor.SchemeColor = 50
            End With
            End With
End Sub

У меня есть несколько таких связей между разными формами. Теперь мой вопрос: я хотел бы закрасить предыдущие соединительные линии серым, прежде чем добавлять следующие соединительные линии. Мне нужен какой-то код выбора только для фигур соединителей без всех других типов фигур и для изменения их цвета.

С уважением, Саид