Propiedad PictureFormat.CropRight (Publisher)

Devuelve o establece un valor Variant que indica la cantidad por la que se recorta el borde derecho de una imagen u objeto OLE. Lectura y escritura.

Sintaxis

expresión. CropRight

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 izquierdo 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 derecho del marco y el borde derecho del área de rayado. 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 CropRight en 50, se recortarán 100 puntos (no 50) de la derecha de la imagen.

Utilice las propiedades CropLeft, 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 derecha 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 _ 
 .CropRight = 20

En este ejemplo se recorta la parte derecha 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 right 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.CropRight = 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.