Método Shape.ScaleWidth (PowerPoint)

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 seu tamanho original ou seu tamanho atual. As formas que não forem imagens e objetos OLE serão sempre dimensionadas em relação à sua largura atual.

Sintaxe

expressão. ScaleWidth (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 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	Especifica se uma forma deve 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 largura 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 msoScaleFrom 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 s

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.