Shape.ScaleWidth method (Project) (Método Shape.ScaleWidth [Projeto])

Dimensiona a largura da forma por um fator especificado.

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	A proporção entre a largura da forma depois de a redimensionar e a largura atual. Por exemplo, para tornar um retângulo 50 por cento mais largo, especifique 1,5 para o parâmetro Factor .
RelativeToOriginalSize	Obrigatório	MsoTriState	msoFalse dimensiona a forma em relação ao tamanho atual. Para o Project, o valor tem de ser msoFalse.
fScale	Opcional	MsoScaleFrom	Especifica qual parte da forma mantém sua posição quando a forma é dimensionada.
Fator	Obrigatório	FLOAT
RelativeToOriginalSize	Obrigatório	MSOTRISTATE
fScale	Opcional	MSOSCALEFROM
Nome	Obrigatório/Opcional	Tipo de dados	Descrição

Valor de retorno

Nothing

Comentários

Um valor de parâmetro RelativeToOriginalSize de msoTrue dimensiona uma forma em relação ao tamanho original, que se aplica apenas a uma imagem ou objeto OLE.

Exemplo

O exemplo seguinte cria duas formas cilíndricas e, em seguida, dimensiona a primeira forma em altura e largura. Se definir um ponto de interrupção na primeira instrução ScaleHeight , pode percorrer o código e ver as alterações do dimensionamento e da utilização do parâmetro fScale .

Sub ScaleShapes()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim reportName As String
    Dim sRange As ShapeRange
    
    reportName = "Scale Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 20, 50, 20, 30)
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 140, 50, 30, 50)
    
    shp1.ScaleHeight 2, msoFalse
    shp1.ScaleWidth 2, msoFalse

    shp1.ScaleHeight 2, msoFalse, msoScaleFromMiddle
    shp1.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
End Sub

Confira também

MsoTriStateMsoScaleFrom do Objeto deForma

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.