Chart.SetElement method (Project) (Método Chart.SetElement [Projeto])
Adiciona o elemento especificado a um gráfico ou a um objeto selecionado num gráfico.
Sintaxe
expression.
SetElement
(RHS)
expressão Uma variável que representa um objeto Chart.
Parâmetros
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
RHS | Obrigatório | MsoChartElementType | Uma das constantes de enumeração do tipo de elemento de gráfico a adicionar. |
Valor de retorno
Nothing
Comentários
O valor RHS do método SetElement corresponde aos itens no submenu Add Chart Element ( Adicionar Elemento de Gráfico ). Estão ativados itens diferentes, consoante o tipo de gráfico. Se tentar adicionar um elemento que não existe para um determinado gráfico, obtém um erro não especificado. Por exemplo, num gráfico 3D, o item Barras de Erro na lista pendente Adicionar Elemento de Gráfico não está disponível. Uma chamada para Chart.SetElement msoElementErrorBarStandardDeviation
resulta num erro.
Exemplo
O exemplo seguinte adiciona linhas de grelha secundárias ao eixo de valores e adiciona notas de aviso de etiquetas 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
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.