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

Свойство Shape.IsInline (Publisher)

  • Статья

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

Синтаксис

expression. IsInline

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

Пример

В этом примере проверяется первая фигура (текстовый кадр) на первой странице публикации, чтобы увидеть, является ли она встроенной. Если это не так, поиск выполняется внутри этой фигуры, чтобы найти все встроенные фигуры в текстовом кадре. Для всех найденных встроенных фигур свойство ForeColor имеет значение красный.

Dim theShape As Shape 
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 
 For i = 1 To .InlineShapes.Count 
 .InlineShapes(i).Select 
 .InlineShapes(i).Fill.ForeColor.RGB = vbRed 
 Next 
 End If 
 End With 
End If

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

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