2015-11-13 5 views

ответ

1

Вы не можете «заполнить» объект TextRange, но если вы пытаетесь заполнить текстовое поле, содержащее TextRange, то вы заполните форму, которая является двумя родителями над объектом TextRange.

например.

Dim oShp as Shape 
Set oShp = ActivePresentation.Slides(1).Shapes(1) 
' Fill the text with red 
oShp.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255,0,0) 
' Fill the text box with green 
oShp.Fill.ForeColor.RGB = RGB(0,255,0) 
+0

Almost--, что я хочу сделать, это заполнить цвет фона, но только за текстом в TextRange, а не весь текст коробки – kimon

+1

Как говорит Джейми, вы не можете сделать это. Самое близкое, что вы можете получить, это добавить прямоугольник нужного вам цвета и его размер и разместить его через свойства BoundingBox текстового диапазона. –

+0

Но я мог сделать это вручную, выбрав текст, а затем изменив цвет фона этого выделения. Нет ли способа сделать то же самое через API? – kimon