Propriedade PictureFormat.CropRight (Publisher)

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

Sintaxe

expressão. CropRight

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; As cadeias de carateres podem estar em todas as unidades suportadas pelo Microsoft Publisher (por exemplo, "2,5 pol").

Os valores negativos recortam a margem inferior longe do centro da moldura e os valores positivos recortam em direção à margem esquerda da moldura.

O intervalo válido de valores de corte depende da posição do quadro e do tamanho. Para uma moldura não estatísticada, o valor negativo mais baixo permitido é a distância entre o limite direito da moldura e a margem direita da área de rascunho. O maior valor positivo permitido é a largura 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 largura, redimensioná-la de forma que ele fique 200 pontos de largura e, em seguida, defina a propriedade CropRight como 50, 100 pontos (e não 50) serão cortados à direita da sua imagem.

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

Exemplo

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

Este exemplo corta o percentual especificado pelo usuário a partir da parte direita 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 sngWidth As Single 
 
sngPercent = InputBox("What percentage do you " & _ 
 "want to crop off the right of this picture?") 
 
Set shpCrop = Selection.ShapeRange(1) 
With shpCrop.Duplicate 
 .ScaleWidth Factor:=1, _ 
 RelativeToOriginalSize:=True 
 sngWidth = .Width 
 .Delete 
End With 
 
sngPoints = sngWidth * sngPercent / 100 
 
shpCrop.PictureFormat.CropRight = 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.