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 izquierdo de una imagen u objeto OLE. Lectura y escritura.
Sintaxis
expresión. CropLeft
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 lejos del centro del marco y los valores positivos se recortan hacia el borde derecho 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 izquierdo del marco y el borde izquierdo del área temporal. El valor positivo más alto que se permite en el ancho 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 ancho de 100 puntos, cambia la escala de modo que sea de 200 y, a continuación, se establece la propiedad CropLeft en 50, se recortarán 100 puntos (no 50) de la izquierda de la imagen.
Utilice las propiedades CropRight, CropTop y CropBottom para recortar otros contornos de una imagen o un objeto OLE.
Ejemplo
En este ejemplo se recortan 20 puntos de la parte izquierda 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 _
.CropLeft = 20
En este ejemplo se recorta la parte izquierda 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 sngWidth As Single
sngPercent = InputBox("What percentage do you " & _
"want to crop off the left of this picture?")
Set shpCrop = Selection.ShapeRange(1)
With shpCrop.Duplicate
.ScaleWidth Factor:=1, _
RelativeToOriginalSize:=True
sngWidth = .Width
.Delete
End With
sngPoints = sngWidth * sngPercent / 100
shpCrop.PictureFormat.CropLeft = 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.