Método Shape.ScaleWidth (PowerPoint)

Cambia el ancho de la forma en un factor especificado. Para imágenes y objetos OLE, puede indicar si desea cambiar la escala de la forma respecto al tamaño original o respecto al tamaño actual. La escala de las formas que no son imágenes y objetos OLE siempre se cambia respecto a su ancho actual.

Sintaxis

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

expresión 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	Especifica si se aplica la escala a la forma respecto al tamaño actual o al original.
fScale	Opcional	MsoScaleFrom	Parte de la forma que conserva su posición cuando se ajusta la forma.

Observaciones

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.

El valor del parámetro RelativeToOriginalSize puede ser una de las siguientes constantes MsoTriState . Puede especificar msoTrue para este parámetro sólo si la forma especificada es una imagen o un objeto OLE.

Constante	Descripción
msoFalse	Escala las formas respecto a su tamaño actual.
msoTrue	Escala las formas respecto a su tamaño original.

El valor del parámetro fScale puede ser una de las siguientes constantes MsoScaleFrom . El valor predeterminado es msoScaleFromTopLeft.

msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft

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 = ActivePresentation.Slides(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 s

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