Método Shape.ScaleWidth (Publisher)

Dimensiona a largura da forma por um fator especificado. Para imagens e objetos OLE, é possível indicar se você deseja dimensionar a forma em relação ao tamanho original ou ao tamanho 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 o objeto deve ser redimensionado em relação a seu tamanho original ou atual.
fScale	Opcional	MsoScaleFrom	A parte da forma que mantém sua posição quando a forma é dimensionada. Pode ser uma das constantes MsoScaleFrom declaradas na biblioteca de tipos do Microsoft Office.

Comentários

O parâmetro RelativeToOriginalSize pode ser uma das constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office e mostradas na tabela a seguir.

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.

Formas diferentes de imagens e objetos OLE são sempre dimensionadas em relação à largura atual; especificar um valor RelativeToOriginalSize de msoTrue para formas diferentes de imagens ou objetos OLE causa um erro.

Use o método ScaleHeight para redimensionar a altura de uma forma.

Exemplo

Este exemplo redimensiona todas as imagens e objetos OLE na primeira página da publicação ativa em 175 por cento da altura e da largura original e redimensiona todas as outras formas em 175 da altura e da largura atual.

' Looping variable. 
Dim shpLoop As Shape 
 
' Loop through all the shapes on the first page. 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 With shpLoop 
 Select Case .Type 
 ' If the shape is a picture or OLE object, 
 ' scale relative to original size. 
 Case pbPicture, pbLinkedPicture, _ 
 pbEmbeddedOLEObject, pbLinkedOLEObject, _ 
 pbOLEControlObject 
 .ScaleHeight Factor:=1.75, _ 
 RelativeToOriginalSize:=True 
 .ScaleWidth Factor:=1.75, _ 
 RelativeToOriginalSize:=True 
 ' If the shape is not a picture or OLE object, 
 ' scale relative to the current size. 
 Case Else 
 .ScaleHeight Factor:=1.75, _ 
 RelativeToOriginalSize:=False 
 .ScaleWidth Factor:=1.75, _ 
 RelativeToOriginalSize:=False 
 End Select 
 End With 
Next shpLoop 

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.