Compartilhar via


Método ShapeRange.ScaleWidth (Excel)

Dimensiona a largura da forma por um fator especificado. Para imagens e objetos OLE, você pode indicar se deseja dimensionar a forma em relação ao tamanho original ou atual. Formas que não sejam imagens ou objetos OLE são sempre dimensionadas em relação à sua largura atual.

Sintaxe

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

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Fator Obrigatório Single Especifica a proporção entre a largura da forma após você redimensioná-la e a largura atual ou original. Por exemplo, para tornar um retângulo 50% maior, especifique 1,5 para esse argumento.
RelativeToOriginalSize Obrigatório MsoTriState msoFalse para dimensioná-lo em relação ao seu tamanho atual. Você só pode especificar msoTrue para este argumento se a forma especificada for uma imagem ou um objeto OLE.
Escala Opcional Variantes Uma das constantes do MsoScaleFrom, que especifica qual parte da forma mantém sua posição quando a forma é dimensionada.

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 = Worksheets(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

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.