Método Shape.ScaleWidth (Project)

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 razão entre a largura da forma depois de redimensioná-la e a largura atual. Por exemplo, para tornar um retângulo 50% maior, especifique 1,5 para o parâmetro Factor .
RelativeToOriginalSize	Obrigatório	MsoTriState	msoFalse dimensiona a forma em relação ao tamanho atual. Para Project, o valor deve 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 seu tamanho original, que se aplica apenas a uma imagem ou objeto OLE.

Exemplo

O exemplo a seguir cria duas formas cilíndricas e, em seguida, dimensiona a primeira forma em altura e largura. Se você definir um ponto de interrupção na primeira instrução ScaleHeight , poderá passar pelo código e ver as alterações do dimensionamento e do uso 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

Objeto ShapeMsoTriStateMsoScaleFrom

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.