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

Автор Посетитель, 01 апреля 2020, 19:00

Посетитель

Как можно макросом изменить цвет текста внутри сгруппированной фигуры?
Без макроса я изменяю цвет так. Я мышью просто выделяю фигуру и нажимаю: вкладка "Главная" - группа "Шрифт" - Цвет шрифта.
Макрорекордер в "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