Propiedad Graphic.CropLeft (Excel)

Devuelve o establece el número de puntos recortados del lado izquierdo de la imagen o el objeto OLE especificados. Single de lectura y escritura.

Sintaxis

expresión. CropLeft

Expresión Expresión que devuelve un objeto Graphic .

Comentarios

El recorte se calcula en relación con el tamaño original de la imagen. Por ejemplo, si inserta una imagen que originalmente tiene 100 puntos de ancho, vuelva a escalarla para que tenga 200 puntos de ancho y, a continuación, establezca la propiedad CropLeft en 50, 100 puntos (no 50) se recortarán del lado izquierdo de la imagen.

Ejemplo:

En este ejemplo se recorta 20 puntos el lado izquierdo de la forma tres de myDocument. Para que el ejemplo funcione, la forma tres debe ser una imagen o un objeto OLE.

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

Con el ejemplo siguiente, puede especificar el porcentaje que desea recortar fuera del lado izquierdo de la forma seleccionada, independientemente de si la forma se ha escalado. Para que funcione el ejemplo, la forma seleccionada debe ser una imagen o un objeto OLE.

percentToCrop = InputBox( _ 
 "What percentage do you want to crop" & _ 
 " off the left 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.CropLeft = cropPoints

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.