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