Compartilhar via

Propriedade PictureFormat.CropTop (Publisher)

  • Artigo

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

Sintaxe

expressão. CropTop

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 superior do centro do quadro e os valores positivos se reduzem para a borda inferior 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 menor valor negativo permitido é a distância entre a borda superior do quadro e a borda superior 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 CropTop como 50, 100 pontos (e não 50) serão cortados da parte superior da sua imagem.

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

Exemplo

Este exemplo corta 20 pontos da parte superior 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 _ 
 .CropTop = 20

Este exemplo corta o percentual especificado pelo usuário a partir da parte superior 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 top 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.CropTop = 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.