Método Shapes.AddShape (proyecto)

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 (Tipo,Izquierda,Superior,Ancho,Alto)

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 La posición, en puntos, del borde izquierdo de la autoforma.
Top Obligatorio Single La posición, en puntos, del borde superior de la autoforma.
Width Obligatorio Single La anchura, en puntos, de la autoforma.
Height Obligatorio Single La altura, en puntos, de la AutoShape.
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

Comentarios

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, la segunda forma cambia a un globo de diálogo 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

Objeto de formasObjeto de formaPropiedad AutoShapeTypeEnumeración MsoAutoShapeType (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.

  • Last updated on