Propriedade PictureFormat.CropRight (Excel)

Devolve ou define o número de pontos que são recortados do lado direito da imagem especificada ou objeto OLE. Somente leitura/gravação.

Sintaxe

expressão. CropRight

expressão Uma expressão que devolve um objeto PictureFormat .

Comentários

O corte é calculado em relação ao tamanho original da imagem. Por exemplo, se inserir uma imagem que tenha originalmente 100 pontos de largura, redimensione-a para que tenha 200 pontos de largura e, em seguida, defina a propriedade CropRight para 50, 100 pontos (e não 50) no lado direito da sua imagem.

Exemplo

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

Set myDocument = Worksheets(1) 
myDocument.Shapes(3).PictureFormat.CropRight = 20

Com este exemplo, pode especificar a percentagem que pretende recortar no lado direito da forma selecionada, independentemente de a forma ter sido dimensionada. Para que o exemplo funcione, a forma selecionada precisa ser uma imagem ou um objeto OLE.

percentToCrop = InputBox( _ 
 "What percentage do you want to crop" & _ 
 " off the right of this picture?") 
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1) 
With shapeToCrop.Duplicate 
 .ScaleWidth 1, True 
 origWidth = .Width 
 .Delete 
End With 
cropPoints = origWidth * percentToCrop / 100 
shapeToCrop.PictureFormat.CropRight = cropPoints

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.