Método Shapes.AddChart (proyecto)

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

Sintaxis

expresión. AddChart (Estilo,Tipo,Izquierda,Superior,Ancho,Alto,Nuevo diseño)

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 en el 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	El tipo de gráfico que se va a agregar, como un gráfico de columnas o un gráfico circular.
Left	Opcional	Single	La posición, medida en puntos, del borde izquierdo del gráfico.
Top	Opcional	Single	La posición, medida en puntos, del borde superior del gráfico.
Width	Opcional	Single	El ancho del gráfico, medido en puntos.
Height	Opcional	Single	La altura del gráfico, medida en puntos.
Nuevo diseño	Opcional	Boolean	NewLayout no se utiliza en Project.
Estilo	Opcional	INT
Tipo	Opcional	XLCHARTTYPE
Left	Opcional	FLOAT
Top	Opcional	FLOAT
Width	Opcional	FLOAT
Height	Opcional	FLOAT
Nuevo diseño	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

Formas ObjetoForma ObjetoGráfico 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.