Método Shape.ScaleWidth (Word)

Cambia el ancho de la forma en un factor especificado.

Sintaxis

expresión. ScaleWidth (Factor, RelativeToOriginalSize, Scale)

expresión requerida. Variable que representa un objeto Shape.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Factor	Obligatorio	Single	Especifica la relación entre el ancho de la forma después de cambiar su tamaño y el ancho original o actual. Por ejemplo, para crear un rectángulo un 50 por ciento más grande, especifique el valor 1,5 en este argumento.
RelativeToOriginalSize	Obligatorio	MsoTriState	True para escalar la forma respecto a su tamaño original. False para cambiarlo con relación a su tamaño actual. Puede especificar True para este argumento sólo si la forma especificada es una imagen o un objeto OLE.
Scale	Opcional	MsoScaleFrom	Parte de la forma que conserva su posición cuando se ajusta la forma.

Comentarios

Para imágenes y objetos OLE, puede indicar si desea ajustar el tamaño de la forma con relación al tamaño original o al tamaño actual. El tamaño de las formas distintas de imágenes y objetos OLE siempre se ajusta con relación a su ancho actual.

Ejemplo:

En este ejemplo, se ajusta el tamaño de todas las imágenes y los objetos OLE de myDocument a un 175 por ciento de su alto y ancho originales, y se ajusta el tamaño de todas las demás formas a un 175 por ciento de su alto y ancho actuales.

Set myDocument = ActiveDocument 
For Each s In myDocument.Shapes 
 Select Case s.Type 
 Case msoEmbeddedOLEObject, msoLinkedOLEObject, _ 
 msoOLEControlObject, _ 
 msoLinkedPicture, msoPicture 
 s.ScaleHeight 1.75, True 
 s.ScaleWidth 1.75, True 
 Case Else 
 s.ScaleHeight 1.75, False 
 s.ScaleWidth 1.75, False 
 End Select 
Next

Consulte también

Objeto Shape

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.