Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Devuelve o establece un valor Variant que indica la cantidad por la que se recorta el borde inferior de una imagen u objeto OLE. Lectura y escritura.
Sintaxis
expresión. CropBottom
expresión Variable que representa un objeto PictureFormat .
Valor devuelto
Variant
Observaciones
Los valores numéricos se evalúan en puntos; Las cadenas pueden estar en cualquier unidad compatible con Microsoft Publisher (por ejemplo, "2,5 in").
Los valores negativos recortan el borde inferior del centro del marco y los valores positivos se recortan hacia el borde superior del marco.
El intervalo válido de valores de recorte depende de la posición y del tamaño del marco. En el caso de un marco no rotado, el valor negativo más bajo permitido es la distancia entre el borde inferior del marco y el borde inferior del área temporal. El valor positivo más alto que se permite en el alto actual del marco.
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.
Utilice las propiedades CropLeft, CropRight y CropTop para recortar otros contornos de una imagen o un objeto OLE.
Ejemplo
En este ejemplo se recortan 20 puntos de la parte inferior de la tercera forma de la publicación activa. Para que funcione el ejemplo, la forma debe ser una imagen o un objeto OLE.
ActiveDocument.Pages(1).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.
Dim sngPercent As Single
Dim shpCrop As Shape
Dim sngPoints As Single
Dim sngHeight As Single
sngPercent = InputBox("What percentage do you " & _
"want to crop off the bottom of this picture?")
Set shpCrop = Selection.ShapeRange(1)
With shpCrop.Duplicate
.ScaleHeight Factor:=1, _
RelativeToOriginalSize:=True
sngHeight = .Height
.Delete
End With
sngPoints = sngHeight * sngPercent / 100
shpCrop.PictureFormat.CropBottom = sngPoints
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.