Свойство 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 и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по