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

Свойство ShapeRange.InlineTextRange (Publisher)

  • Статья

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

Синтаксис

expression. InlineTextRange

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

Замечания

Возвращаемый текстовый диапазон содержит один объект, представляющий встроенную фигуру. Если фигура не является встроенной, возвращается ошибка автоматизации.

Пример

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

Dim theShape As Shape 
Dim theTextRange As TextRange 
Dim i As Integer 
 
Set theShape = ActiveDocument.Pages(1).Shapes(1) 
 
If Not theShape.IsInline = True Then 
 With theShape.TextFrame.Story.TextRange 
 If .InlineShapes.Count > 0 Then 
 Set theTextRange = theShape.TextFrame.Story.TextRange 
 For i = 1 To .InlineShapes.Count 
 With .InlineShapes(i) 
 .InlineTextRange.InsertAfter (" (Figure " & i & ") ") 
 End With 
 Next 
 End If 
 End With 
End If

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

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