Método Chart.ApplyLayout (Project)

Aplica o esquema de gráfico especificado e o tipo de gráfico a um gráfico selecionado.

Sintaxe

expression. ApplyLayout (Esquema,varChartType)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Layout Obrigatório Long Especifica o tipo de esquema, em que o valor corresponde a um item de Esquema Rápido no friso.
varChartType Opcional Variant Pode ser uma das constantes do Office.XlChartType .
Layout Obrigatório INT32
varChartType Opcional Variant

Valor de retorno

Nothing

Comentários

Quando seleciona um gráfico num relatório, a lista pendente Esquema Rápido encontra-se no separador ESTRUTURA em FERRAMENTAS DE GRÁFICO no friso . Pode alterar manualmente o tipo de gráfico utilizando o comando Alterar Tipo de Gráfico no mesmo separador do friso.

Quando utiliza um esquema no tipo de gráfico atual, o parâmetro Esquema está limitado ao número de itens na lista pendente Esquema Rápido . Utilize o parâmetro varChartType para aplicar o esquema de um tipo de gráfico diferente no gráfico atual. Por exemplo, você pode aplicar os layouts que estão disponíveis de um gráfico de linha em um gráfico de coluna. O método ApplyLayout adiciona apenas os elementos do gráfico de linhas que também estão disponíveis para o tipo de gráfico de colunas.

Exemplo

O exemplo seguinte aplica o número de item de Esquema Rápido 12 de um gráfico de linhas ao gráfico selecionado.

Sub SetChartLayout()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple scalar chart"
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    chartShape.Chart.ApplyLayout Layout:=12, varChartType:=Office.XlChartType.xlLine
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.