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

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

  • Статья

Указывает, связан ли с указанной фигурой объект TextFrame . Только для чтения.

Синтаксис

expression. HasTextFrame

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

Замечания

Если свойство HasTextFrame имеет значение true, клиенты должны проверить значение свойства HasText объекта TextFrame , чтобы определить, есть ли текст на фигуре.

Значение свойства HasTextFrame может быть одной из констант MsoTriState , объявленных в библиотеке типов Microsoft Office и показанных в следующей таблице.

Константа Описание
msoFalse С указанной фигурой не связан объект TextFrame .
msoTriStateMixed Указывает сочетание msoTrue и msoFalse для указанного диапазона фигур.
msoTrue С указанной фигурой связан объект TextFrame .

Пример

В этом примере проверяются все фигуры в выделенном фрагменте, и если с ними не связаны текстовые кадры, они выравниваются по левому краю.

Sub MoveLeft() 
 
 Dim shpAll As ShapeRange 
 
 Set shpAll = Application.ActiveDocument.Selection.ShapeRange 
 If shpAll.HasTextFrame = msoFalse Then 
 shpAll.Align msoAlignLefts, msoTrue 
 End If 
 
End Sub

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

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