Compartir a través de

Método ShapeRange.ScaleWidth (Excel)

  • Artículo

Cambia el ancho de la forma en un factor especificado. Para imágenes y objetos OLE, se puede indicar si se desea cambiar el tamaño de la forma con relación al original o al tamaño actual. El tamaño de las formas que no son imágenes y objetos OLE siempre se cambia con relación al ancho actual.

Sintaxis

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

Expresión Variable que representa un objeto ShapeRange .

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 msoFalse para escalarla en relación con su tamaño actual. Puede especificar msoTrue en este argumento únicamente si la forma especificada es una imagen o un objeto OLE.
Scale Opcional Variant Una de las constantes de MsoScaleFrom, que especifica qué parte de la forma conserva su posición cuando se escala la forma.

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 = Worksheets(1) 
For Each s In myDocument.Shapes 
    Select Case s.Type 
    Case msoEmbeddedOLEObject, _ 
            msoLinkedOLEObject, _ 
            msoOLEControlObject, _ 
            msoLinkedPicture, msoPicture 
        s.ScaleHeight 1.75, msoTrue 
        s.ScaleWidth 1.75, ,msoTrue 
    Case Else 
        s.ScaleHeight 1.75, msoFalse 
        s.ScaleWidth 1.75, msoFalse 
    End Select 
Next

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.