Método ShapeRange.ScaleWidth (Excel)

Artículo
04/07/2023

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.