Propiedad PictureFormat.CropTop (Word)

Devuelve o establece el número de puntos que se recortará la parte superior de la imagen especificada o un objeto OLE. Lectura y escritura único.

Sintaxis

expresión. CropTop

Expresión Variable que representa un objeto 'PictureFormat'.

Comentarios

El recorte se calcula con relación al tamaño original de la imagen. Por ejemplo, si inserta una imagen que originalmente tiene un alto de 100 puntos, cambia la escala de modo que tenga un alto de 200 puntos y, a continuación, se establece la propiedad CropTop en 50, se recortarán 100 puntos (no 50) de la parte superior de la imagen.

Ejemplo:

En este ejemplo se recortan 20 puntos de la parte superior de la forma tres del documento activo. Para que el ejemplo funcione, la forma tres debe ser una imagen o un objeto OLE.

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

En este ejemplo se recorta la parte superior de la forma seleccionada a razón del porcentaje que haya especificado el usuario sin tener en cuenta si se ha reajustado la forma o no. Para que funcione el ejemplo, la forma seleccionada debe ser una imagen o un 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 top 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.CropTop = sngCrop

Consulte también

Objeto PictureFormat

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.