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.
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
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.