Objeto WrapFormat (Publisher)
Representa todas as propriedades para quebra de texto ao redor de uma forma ou de um intervalo de formas.
Comentários
Use a propriedade Shape.TextWrap para retornar 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
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.