Método Chart.SetElement (Project)
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
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
RHS | Obrigatório | MsoChartElementType | Uma das constantes de enumeração para o tipo de elemento gráfico a ser adicionado. |
Valor de retorno
Nothing
Comentários
O valor RHS do método SetElement corresponde a itens no submenu Adicionar Elemento do Gráfico . Itens diferentes estão habilitados, dependendo do tipo de gráfico. Se você tentar adicionar um elemento que não existe para um gráfico específico, você receberá um erro não especificado. Por exemplo, em um gráfico 3D, o item Barras de Erro na lista suspensa Adicionar Elemento gráfico não está disponível. Uma chamada para resultar Chart.SetElement msoElementErrorBarStandardDeviation
em um erro.
Exemplo
O exemplo a seguir adiciona linhas de grade menores ao eixo de valor e adiciona chamadas 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
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de