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