Método Shape.ScaleHeight (PowerPoint)

Dimensiona a altura da forma por um fator especificado.

Sintaxe

expressão. ScaleHeight (Factor, RelativeToOriginalSize, fScale)

Expressão Uma variável que representa um objeto Shape .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Fator	Obrigatório	Single	Especifica a proporção entre a altura da forma após você redimensioná-la e a altura atual ou original. Por exemplo, para tornar um retângulo 50% maior, especifique 1,5 para esse argumento.
RelativeToOriginalSize	Obrigatório	MsoTriState	Especifica se a forma será dimensionada em relação ao seu tamanho atual ou original.
fScale	Opcional	MsoScaleFrom	A parte da forma que mantém sua posição quando a forma é dimensionada.

Comentários

Para figuras e objetos OLE, você pode indicar se deseja dimensionar a forma em relação ao tamanho original ou em relação ao tamanho atual. As formas que não sejam figuras e objetos OLE serão sempre dimensionadas em relação à sua altura atual.

O valor do parâmetro RelativeToOriginalSize pode ser uma das constantes msoTriState a seguir. Você pode especificar msoTrue para este parâmetro somente se a forma especificada é uma imagem ou um objeto OLE.

Constante	Descrição
msoFalse	Dimensiona a forma em relação a seu tamanho atual.
msoTrue	Dimensiona a forma em relação a seu tamanho original.

O valor do parâmetro fScale pode ser uma das constantes msoTriState a seguir. O padrão é msoScaleFromTopLeft.

msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft

Exemplo

Este exemplo dimensiona todas as figuras e objetos OLE de myDocument com 175% de sua altura e largura originais e dimensiona todas as outras formas com 175% de sua altura e largura atuais.

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

Confira também

Objeto Shape

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.