Método Shape.ScaleHeight (PowerPoint)

Cambia el alto de la forma en un factor especificado.

Sintaxis

expresión. ScaleHeight (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 alto de la forma después de cambiar su tamaño y el alto 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.

Comentarios

Para imágenes y objetos OLE, puede indicar si desea escalar la forma con relación a su tamaño original o a su tamaño actual. Las formas distintas de imágenes y objetos OLE siempre se escalan en relación con su alto 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 MsoTriState . 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

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