Método Shape.ScaleWidth (Project)

Cambia el ancho de la forma en un factor especificado.

Sintaxis

expresión. ScaleWidth (Factor, RelativeToOriginalSize, fScale)

expresión Variable que representa un objeto Shape.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Factor	Obligatorio	Single	Relación entre el ancho de la forma después de cambiar su tamaño y el ancho actual. Por ejemplo, para hacer un rectángulo 50 por ciento más ancho, especifique 1,5 para el parámetro Factor .
RelativeToOriginalSize	Obligatorio	MsoTriState	msoFalse escala la forma con respecto a su tamaño actual. Para Project, el valor debe ser msoFalse.
fScale	Opcional	MsoScaleFrom	Especifica qué parte de la forma mantiene su posición cuando se ajusta el tamaño de la forma.
Factor	Obligatorio	FLOAT
RelativeToOriginalSize	Obligatorio	MSOTRISTATE
fScale	Opcional	MSOSCALEFROM
Nombre	Obligatorio/opcional	Tipo de datos	Descripción

Valor devuelto

Nothing

Observaciones

Un valor de parámetro RelativeToOriginalSize de msoTrue escala una forma en relación con su tamaño original, que solo se aplica a una imagen o a un objeto OLE.

Ejemplo

En el ejemplo siguiente se crean dos formas cilíndricas y, a continuación, se escala la primera forma en alto y ancho. Si establece un punto de interrupción en la primera instrucción ScaleHeight , puede recorrer el código y ver los cambios del escalado y del uso del 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

Vea también

Objeto ShapeMsoTriStateMsoScaleFrom

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.