Método Shapes.AddShape (Project)

Agrega una forma del tipo de autoforma especificado a un informe y devuelve un objeto Shape que representa la nueva forma.

Sintaxis

expresión. AddShape (Type,Left,Top,Width,Height)

expresión Variable que representa un objeto Shapes.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Type	Obligatorio	MsoAutoShapeType	Especifica el tipo de autoforma que se desea crear.
Left	Obligatorio	Single	Posición, en puntos, del borde izquierdo de la autoforma.
Top	Obligatorio	Single	Posición, en puntos, del borde superior de la autoforma.
Width	Obligatorio	Single	Ancho, en puntos, de la autoforma.
Height	Obligatorio	Single	Alto, en puntos, de la autoforma.
Tipo	Obligatorio	MSOAUTOSHAPETYPE
Left	Obligatorio	FLOAT
Top	Obligatorio	FLOAT
Width	Obligatorio	FLOAT
Height	Obligatorio	FLOAT
Nombre	Obligatorio/opcional	Tipo de datos	Descripción

Valor devuelto

Shape

Observaciones

Para cambiar el tipo de una autoforma, establezca la propiedad AutoShapeType .

Ejemplo

En el ejemplo siguiente se crea un informe que contiene dos formas de nube y, a continuación, se cambia la segunda forma de nube a un globo de voz amarillo.

Sub TestShapes()
    Dim shapeReport As Report
    Dim reportName As String
    
    ' Add a report.
    reportName = "Shape report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    ' Add two clouds.
    Dim cloudShape1 As shape
    Dim cloudShape2 As shape
    Set cloudShape1 = shapeReport.Shapes.AddShape(msoShapeCloud, 20, 20, 100, 60)
    Set cloudShape2 = shapeReport.Shapes.AddShape(msoShapeCloud, 100, 200, 60, 100)
    
    ' Change the blue cloud to a yellow speech balloon.
    cloudShape2.AutoShapeType = msoShapeBalloon
    cloudShape2.Fill.ForeColor.RGB = &H80FFFF
End Sub

Vea también

Propiedad MsoAutoShapeType de la propiedad AutoShapeType del objeto Shapes (Office)

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.