Método Chart.SetElement (Project)

Agrega el elemento especificado a un gráfico o a un objeto seleccionado en un gráfico.

Sintaxis

expresión. SetElement (RHS)

expresión Una variable que representa un objeto Chart.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
RHS	Obligatorio	MsoChartElementType	Una de las constantes de enumeración para el tipo de elemento de gráfico que se va a agregar.

Valor devuelto

Nothing

Observaciones

El valor RHS del método SetElement corresponde a los elementos de los submenús Agregar elemento gráfico . Se habilitan diferentes elementos, en función del tipo de gráfico. Si intenta agregar un elemento que no existe para un gráfico determinado, obtendrá un error no especificado. Por ejemplo, en un gráfico 3D, el elemento Barras de error de la lista desplegable Agregar elemento de gráfico no está disponible. Una llamada a Chart.SetElement msoElementErrorBarStandardDeviation da como resultado un error.

Ejemplo

En el ejemplo siguiente se agregan líneas de cuadrícula secundarias al eje de valores y se agregan llamadas de etiqueta de datos a la segunda serie de datos.

Sub TestSetElements()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple 3D chart"
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    With chartShape.Chart
        .SetElement msoElementChartTitleAboveChart
        
        ' Select the major gridlines on the value axis, and then add minor gridlines.
        .axes(Office.xlValue).MajorGridlines.Select
        .SetElement msoElementPrimaryCategoryGridLinesMinor
        
        ' Select the second data series and add data label callouts.
        If .SeriesCollection.Count > 1 Then
            .SeriesCollection(2).Select
            .SetElement msoElementDataLabelCallout
        End If
    End With
End Sub

Vea también

Objeto Chart

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.