Shape. Изменение цвета и размера части текста в коде VBA

[Dmitriy_2411]

 Здравствуйте. Подскажите как при помощи кода выделить часть текста в фигуре и поменять его цвет и размер? Синтаксис как для ячейки не подходит...
Заранее спасибо

[doober]

Здравствуйте

Код Выделить Развернуть

    Set Shap = ActiveSheet.Shapes("Rectangle 1")
    With Shap.TextFrame2.TextRange.Characters(5, 4).Font
        With .Fill
            .ForeColor.RGB = RGB(255, 0, 0)
        End With
        .Size = 18
    End With