Compartilhar via


Método Shape.ScaleHeight (Word)

Dimensiona a altura da forma por um fator especificado.

Sintaxe

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

expressão Obrigatório. 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 True para dimensionar a forma em relação ao seu tamanho original. False para dimensioná-lo em relação ao seu tamanho atual. Você pode especificar True para este argumento somente se a forma especificada é uma imagem ou um objeto OLE.
Scale 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.

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 = ActiveDocument 
For Each s In myDocument.Shapes 
 Select Case s.Type 
 Case msoEmbeddedOLEObject, msoLinkedOLEObject, _ 
 msoOLEControlObject, _ 
 msoLinkedPicture, msoPicture 
 s.ScaleHeight 1.75, True 
 s.ScaleWidth 1.75, True 
 Case Else 
 s.ScaleHeight 1.75, False 
 s.ScaleWidth 1.75, False 
 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.