Propriedade PictureFormat.CropLeft (Publisher)

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

Sintaxe

expressão. CropLeft

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 direita 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 esquerda do quadro e a borda esquerda da área de risco. 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 CropLeft como 50, 100 pontos (e não 50) serão cortados esquerda da sua imagem.

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

Exemplo

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

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