Método Chart.ApplyLayout (Project)
Aplica o layout do gráfico especificado e o tipo de gráfico a um gráfico selecionado.
Sintaxe
expression. ApplyLayout
(Layout,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 layout, em que o valor corresponde a um item de Layout Rápido na faixa de opções. |
varChartType | Opcional | Variantes | Pode ser uma das constantes Office.XlChartType . |
Layout | Obrigatório | INT32 | |
varChartType | Opcional | Variantes |
Valor de retorno
Nothing
Comentários
Quando você seleciona um gráfico em um relatório, a lista suspensa Layout Rápido está na guia DESIGN em FERRAMENTAS DE GRÁFICO na faixa de opções. Você pode alterar manualmente o tipo de gráfico usando o comando Alterar Tipo de Gráfico na mesma guia de faixa de opções.
Quando você usa um layout no tipo de gráfico atual, o parâmetro Layout é limitado ao número de itens na lista suspensa layout rápido . Use o parâmetro varChartType para aplicar o layout 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 a seguir aplica o item layout rápido número 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
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