Свойство TextRange.InlineShapes (Publisher)

Статья
04/07/2023

Возвращает коллекцию InlineShapes , которая представляет встроенные фигуры, содержащиеся в текстовом диапазоне. Только для чтения.

Синтаксис

expression. InlineShapes

Выражение Переменная, представляющая объект TextRange .

Возвращаемое значение

InlineShapes

Замечания

С помощью TextFrame.Story.TextRange.InlineShapes возвращает все встроенные фигуры в текстовом фрейме, включая фигуры, которые находятся в переполнении.

При использовании TextFrame.TextRange.InlineShapes возвращается только видимые встроенные фигуры в текстовом фрейме, а не те, которые находятся в переполнении.

Пример

В следующем примере первая фигура (текстовое поле) находится на первой странице активной публикации. Затем свойство InlineShapes используется для определения того, существуют ли в текстовом поле какие-либо встроенные фигуры. Если какие-либо из них найдены, каждая встроенная фигура переворачивается по вертикали, а цвет ее основного плана — красный.

Обратите внимание, что с помощью TextFrame.Story.TextRange.InlineShapesтакже будут найдены все встроенные фигуры, которые находятся в переполнении.

Dim theShape As Shape 
Dim i As Integer 
 
Set theShape = ActiveDocument.Pages(1).Shapes(1) 
 
With theShape.TextFrame.Story.TextRange 
 If .InlineShapes.Count > 0 Then 
 For i = 1 To .InlineShapes.Count 
 .InlineShapes(i).Flip (msoFlipVertical) 
 .InlineShapes(i).Fill.ForeColor.RGB = vbRed 
 Next 
 End If 
End With

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через