Compartilhar via

Propriedade PictureFormat.CropBottom (Publisher)

  • Artigo

Retorna ou define um Variant indicando a quantidade pela qual a borda inferior de uma imagem ou objeto OLE é cortada. Leitura/gravação.

Sintaxe

expressão. CropBottom

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

Valor de retorno

Variant

Comentários

Os valores numéricos são avaliados em pontos; cadeias de caracteres podem estar em todas as unidades com suporte do Microsoft Publisher (por exemplo, "2.5 in").

Os valores negativos afastam a borda inferior do centro do quadro e os valores positivos se reduzem para a borda superior do quadro.

O intervalo válido de valores de corte depende da posição do quadro e do tamanho. Para um quadro não definido, o valor negativo mais baixo permitido é a distância entre a borda inferior do quadro e a borda inferior da área de risco. O maior valor positivo permitido é a altura do quadro atual.

Corte é calculado em relação ao tamanho original da imagem. Por exemplo, se você insere uma imagem que é originalmente 100 pontos de altura, redimensioná-la de forma que ele fique 200 pontos de altura e, em seguida, defina a propriedade CropBottom como 50, 100 pontos (e não 50) serão cortados da parte inferior da sua imagem.

Use as propriedades CropLeft, CropRight e CropTop para cortar as outras extremidades de uma imagem ou objeto OLE.

Exemplo

Este exemplo corta 20 pontos da parte inferior da terceira forma na publicação ativa. Para que o exemplo funcione, a forma precisa ser uma imagem ou um objeto OLE.

ActiveDocument.Pages(1).Shapes(3).PictureFormat _ 
 .CropBottom = 20

Este exemplo corta o percentual especificado pelo usuário a partir da parte inferior da forma selecionada, independente da forma ter sido redimensionada. Para que o exemplo funcione, a forma selecionada precisa ser uma imagem ou um objeto OLE.

Dim sngPercent As Single 
Dim shpCrop As Shape 
Dim sngPoints As Single 
Dim sngHeight As Single 
 
sngPercent = InputBox("What percentage do you " & _ 
 "want to crop off the bottom of this picture?") 
 
Set shpCrop = Selection.ShapeRange(1) 
With shpCrop.Duplicate 
 .ScaleHeight Factor:=1, _ 
 RelativeToOriginalSize:=True 
 sngHeight = .Height 
 .Delete 
End With 
 
sngPoints = sngHeight * sngPercent / 100 
 
shpCrop.PictureFormat.CropBottom = sngPoints

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.