Propriedade ShapeRange.HasTextFrame (Publisher)

Indica se a forma especificada tem um objeto TextFrame associado a ele. Somente leitura.

Sintaxe

expressão. HasTextFrame

Expressão Uma variável que representa um objeto ShapeRange .

Comentários

Se a propriedade HasTextFrame for verdadeira, os clientes deverão verificar o valor da propriedade HasText do objeto TextFrame para determinar se há algum texto na forma.

O valor da propriedade HasTextFrame pode ser uma das constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office e mostradas na tabela a seguir.

Constante	Descrição
msoFalse	A forma especificada não tem um objeto TextFrame associado a ela.
msoTriStateMixed	Indica uma combinação de msoTrue e msoFalse do intervalo de formas especificado.
msoTrue	A forma especificada tem um objeto TextFrame associado a ela.

Exemplo

Este exemplo testa todas as formas na seleção e, se nenhuma tiver quadros de texto associados a elas, elas ficarão alinhadas.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.