Objeto WrapFormat (Publisher)

Representa todas as propriedades para quebra de texto ao redor de uma forma ou de um intervalo de formas.

Comentários

Utilize a propriedade Shape.TextWrap para devolver um objeto WrapFormat .

Exemplo

O exemplo a seguir adiciona uma elipse à publicação ativa e especifica que publicação o texto fluir ao redor dos lados esquerdo e direito do quadrado que circunscreve a elipse. 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

Propriedades

• Application
• DistanceAuto
• DistanceBottom
• DistanceLeft
• DistanceRight
• DistanceTop
• Responsável
• Lado
• Type

Confira também

• Referência do Modelo de Objeto do Publisher

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.