Leer en inglés

Compartir a través de


Método Shapes.AddChart (Project)

Crea un gráfico en la ubicación especificada en el informe activo. Devuelve un objeto Shape que representa el gráfico.

Sintaxis

expresión. AddChart (Style,Type,Left,Top,Width,Height,NewLayout)

expresión Variable que representa un objeto Shapes.

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Estilo Opcional Integer Especifica el estilo de color del gráfico. Los valores corresponden a la lista desplegable Cambiar colores del grupo Estilos de gráfico , en la pestaña DISEÑO , en HERRAMIENTAS DE GRÁFICO en la cinta de opciones (pero los valores no están en el mismo orden).
Tipo Opcional xlChartType Tipo de gráfico que se va a agregar, como un gráfico de columnas o un gráfico circular.
Left Opcional Single Posición, medida en puntos, del borde izquierdo del gráfico.
Top Opcional Single Posición, medida en puntos, del borde superior del gráfico.
Width Opcional Single Ancho del gráfico, medido en puntos.
Height Opcional Single Alto del gráfico, medido en puntos.
NewLayout Opcional Boolean NewLayout no se usa en Project.
Estilo Opcional INT
Tipo Opcional XLCHARTTYPE
Left Opcional FLOAT
Top Opcional FLOAT
Width Opcional FLOAT
Height Opcional FLOAT
NewLayout Opcional BOOL
Nombre Obligatorio/opcional Tipo de datos Descripción

Valor devuelto

Shape

Ejemplo

En el ejemplo siguiente se crea un informe que tiene un tipo de gráfico de barras predeterminado con barras de color naranja.

Sub AddDefaultChart()
    Dim chartReport As Report
    Dim reportName As String
    
    ' Add a report.
    reportName = "Test chart report"
    Set chartReport = ActiveProject.Reports.Add(reportName)

    ' Add a chart.
    Dim chartShape As shape
    Set chartShape = ActiveProject.Reports(reportName).Shapes.AddChart(Style:=12)
    
    With chartShape
        .Chart.SetElement msoElementChartTitleAboveChart
        .Chart.ChartTitle.Text = "Test Chart"
    End With
End Sub

Vea también

Objeto Shapes (objetode gráfico de objetos de formade objeto)

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.