Método Shape.ScaleWidth (Word)
Cambia el ancho de la forma en un factor especificado.
expresión. ScaleWidth (Factor, RelativeToOriginalSize, Scale)
expresión requerida. Variable que representa un objeto Shape.
| 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. |
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.
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
¿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.