Método Chart.SetElement (Projeto)

Adiciona o elemento especificado a um gráfico ou a um objeto selecionado em um gráfico.

Sintaxe

expression. SetElement (RHS)

expressão Uma variável que representa um objeto Chart.

Parâmetros

Valor de retorno

Nothing

Comentários

O valor RHS para o método SetElement corresponde aos itens nos submenus Adicionar elemento gráfico . Itens diferentes são habilitados, dependendo do tipo de gráfico. Se você tentar adicionar um elemento que não existe para um gráfico específico, receberá um erro não especificado. Por exemplo, em um gráfico 3D, o item Barras de Erros na lista suspensa Adicionar Elemento de Gráfico não está disponível. Uma chamada para Chart.SetElement msoElementErrorBarStandardDeviation resulta em um erro.

Exemplo

O exemplo a seguir adiciona linhas de grade secundárias ao eixo de valor e adiciona textos explicativos de rótulo de dados à segunda série de dados.

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

Confira também

Objeto Chart

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.