Método Chart.ApplyCustomType (Project)

Artigo
04/07/2023

Aplica um tipo de gráfico personalizado a um gráfico.

Sintaxe

expression. ApplyCustomType(ChartType,TypeName)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
ChartType	Obrigatório	Office.XlChartType	O tipo de gráfico.
TypeName	Opcional	Variantes	O nome do tipo de gráfico.
ChartType	Obrigatório	XLCHARTTYPE
TypeName	Opcional	Variantes

Valor de retorno

Nothing

Exemplo

O exemplo a seguir altera o tipo de gráfico para um gráfico de barras 3D clusterizado.

Sub SetChartType()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple scalar chart"
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    Debug.Print "Chart type before: " & chartShape.Chart.ChartType
    chartShape.Chart.ApplyCustomType (xl3DBarClustered)
    Debug.Print "Chart type after: " & chartShape.Chart.ChartType
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.