Word VBA Макросы: Как изменить цвет текста в сгруппированной фигуре (рисунке)?

[Посетитель]

Как можно макросом изменить цвет текста внутри сгруппированной фигуры?
Без макроса я изменяю цвет так. Я мышью просто выделяю фигуру и нажимаю: вкладка "Главная" - группа "Шрифт" - Цвет шрифта.
Макрорекордер в "Word 2013" такое не смог записать.
Причем фигуры не должны быть разгруппированы.

[вложение удалено администратором]

[Администратор]

Макрос работает с первым рисунком в файле.

Макрос

Sub Макрос()

    Dim ГрупповойРис As Shape, ВложРис As Shape
   
   
    ' Создание ссылки на групповой рисунок.
    Set ГрупповойРис = ActiveDocument.Shapes(1)
   
    ' Движение по вложенным рисункам.
    For Each ВложРис In ГрупповойРис.GroupItems
        ' Если у рисунка есть поле для текста.
        If ВложРис.TextFrame.HasText Then
            ВложРис.TextFrame.TextRange.Font.ColorIndex = wdRed
        End If
    Next ВложРис
   
End Sub

[свернуть]

[Посетитель]

Спасибо!

[Посетитель]

Если я могу назначить совершенно любой цвет вручную, то в этом макросе можно выбрать только из 16 цветов, я правильно понимаю?

[Администратор]

С помощью макроса тоже можно сделать много цветов:
ВложРис.TextFrame.TextRange.Font.TextColor.RGB = 255