Propiedad PictureFormat.CropBottom (PowerPoint)
Devuelve o establece el número de puntos que se recortan de la parte inferior de la imagen o del objeto OLE especificados. Lectura y escritura.
Sintaxis
expresión. CropBottom
Expresión Variable que representa un objeto PictureFormat .
Valor devuelto
Simple
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 CropBottom en 50, se recortarán 100 puntos (no 50) de la parte inferior de la imagen.
Ejemplo:
En este ejemplo se recorta 20 puntos la parte inferior de la forma tres de myDocument. Para que el ejemplo funcione, la forma tres debe ser una imagen o un objeto OLE.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(3).PictureFormat.CropBottom = 20
En este ejemplo se recorta la parte inferior 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.
percentToCrop = InputBox("What percentage do you " & _
"want to crop off the bottom of this picture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
.ScaleHeight 1, True
origHeight = .Height
.Delete
End With
cropPoints = origHeight * percentToCrop / 100
shapeToCrop.PictureFormat.CropBottom = cropPoints
Consulte también
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.