Método Shapes.AddChart (Project)
Cria um gráfico no local especificado no relatório ativo. Retorna um objeto Shape que representa o gráfico.
Sintaxe
expression. AddChart
(Style,Type,Left,Top,Width,Height,NewLayout)
expressão Uma variável que representa um objeto Formas.
Parâmetros
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
Estilo | Opcional | Integer | Especifica o estilo de cor do gráfico. Os valores correspondem à lista suspensa Alterar Cores no grupo Estilos de Gráfico , na guia DESIGN , em FERRAMENTAS CHART na faixa de opções (mas os valores não estão na mesma ordem). |
Type | Opcional | xlChartType | O tipo de gráfico a ser adicionado, como um gráfico de colunas ou um gráfico de pizza. |
Left | Opcional | Single | A posição, medida em pontos, da borda esquerda do gráfico. |
Top | Opcional | Single | A posição, medida em pontos, da borda superior do gráfico. |
Width | Opcional | Single | A largura do gráfico, medida em pontos. |
Height | Opcional | Single | A altura do gráfico, medida em pontos. |
NewLayout | Opcional | Boolean | NewLayout não é usado no Project. |
Estilo | Opcional | INT | |
Type | Opcional | XLCHARTTYPE | |
Left | Opcional | FLOAT | |
Top | Opcional | FLOAT | |
Width | Opcional | FLOAT | |
Height | Opcional | FLOAT | |
NewLayout | Opcional | BOOL | |
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
Valor de retorno
Formato
Exemplo
O exemplo a seguir cria um relatório que tem um tipo de gráfico de barras padrão com barras de cor laranja.
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
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