Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Cria um gráfico no local especificado no relatório ativo. Retorna um objeto Shape que representa o gráfico.
Sintaxe
expression.
AddChart
(Estilo,Tipo,Esquerda,Superior,Largura,Altura,Novo Layout)
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 DE GRÁFICO 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 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. |
| Novo Layout | 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 | |
| Novo Layout | 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
Formas ObjetoForma ObjetoGráfico Objeto
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.