Propriedade WrapFormat.DistanceRight (Publisher)

Quando a propriedade Tipo do objeto WrapFormat estiver definida como pbWrapTypeSquare, devolve ou define uma Variante que representa a distância (em pontos) entre o texto do documento e a margem direita da forma especificada. Leitura/gravação.

Sintaxe

expressão. DistanceRight

expressão Uma variável que representa um objeto WrapFormat .

Exemplo

Este exemplo adiciona uma elipse ao documento ativo e especifica a quebra do texto no documento ao redor dos lados esquerdo e direito do quadrado que circunscreve a elipse. O exemplo define uma margem de 0,1 polegada entre o texto do documento e as bordas superior, inferior, esquerda e direita do quadrado.

Sub AddNewShape() 
 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.