Compartilhar via

Propriedade Shape.TextWrap (Publisher)

  • Artigo

Retorna um objeto WrapFormat que representa as propriedades de quebra de texto ao redor de uma forma ou intervalo de formas.

Sintaxe

expressão. TextWrap

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

Exemplo

O exemplo a seguir adiciona um oval à publicação ativa e especifica que o texto da publicação envolve os lados esquerdo e direito do quadrado que circunscreve o oval. Haverá uma margem de 0,1 polegada entre o texto da publicação e superior, inferior, esquerda e direita do quadrado.

Sub SetTextWrapFormatProperties() 
 Dim shpOval As Shape 
 
 Set shpOval = ActiveDocument.Pages(1).Shapes.AddShape(Type:=msoShapeOval, _ 
 Left:=36, Top:=36, Width:=100, Height:=35) 
 With shpOval.TextWrap 
 .Type = pbWrapTypeSquare 
 .Side = pbWrapSideBoth 
 .DistanceAuto = msoFalse 
 .DistanceTop = InchesToPoints(0.1) 
 .DistanceBottom = InchesToPoints(0.1) 
 .DistanceLeft = InchesToPoints(0.1) 
 .DistanceRight = InchesToPoints(0.1) 
 End With 
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.