Propriedade PictureFormat.CropLeft (Word)

Retorna ou define o número de pontos que são cortadas do lado esquerdo da imagem especificada ou objeto OLE. Leitura/gravação único.

Sintaxe

expressão. CropLeft

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

Comentários

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 do lado esquerdo da sua imagem.

Exemplo

Este exemplo corta 20 pontos do lado esquerdo da forma três do documento ativo. Para que o exemplo funcione, a forma três precisa ser uma imagem ou um objeto OLE.

ActiveDocument.Shapes(3).PictureFormat.CropLeft = 20

Este exemplo corta o percentual especificado pelo usuário do lado esquerdo da forma selecionada, independente da forma ter sido ajustada. Para que o exemplo funcione, a forma selecionada precisa ser uma imagem ou um objeto OLE.

Dim dblPercent As Double 
Dim shapeCrop As Shape 
Dim sngHeight As Single 
Dim sngCrop As Single 
 
dblPercent = Val(InputBox("What percentage do you want " _ 
 & "to crop off the left of this picture?")) 
 
Set shapeCrop = _ 
 Selection.ShapeRange(1) 
 
With shapeCrop.Duplicate 
 .ScaleHeight 1, True 
 sngHeight = .Height 
 .Delete 
End With 
 
sngCrop = sngHeight * dblPercent / 100 
 
shapeCrop.PictureFormat.CropLeft = sngCrop

Confira também

Objeto PictureFormat

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.