Compartilhar via

Método PivotCache.CreatePivotChart (Excel)

  • Artigo

Cria um Gráfico Dinâmico autônomo de um objeto PivotCache . Retorna um objeto Shape .

Sintaxe

expressão. CreatePivotChart (ChartDestination, XlChartType, Left, Top, Width, Height)

Expressão Uma variável que representa um objeto PivotCache .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
ChartDestination Obrigatório Variantes A planilha Destino.
XlChartType Opcional Variantes O tipo de gráfico.
Left Opcional Variantes A distância, em pontos, da borda esquerda do objeto até a borda esquerda da coluna A (em uma planilha) ou a borda esquerda da área do gráfico (em um gráfico).
Top Opcional Variantes A distância, em pontos, entre a borda superior da forma mais superior no intervalo de formas à borda superior da planilha.
Width Opcional Variantes A largura, em pontos, do objeto.
Height Opcional Variantes A altura, em pontos, do objeto.

Valor de retorno

Objeto Shape

Comentários

Se o objeto PivotCache do qual o método é chamado não tiver uma Tabela Dinâmica anexada:

  • Uma Tabela Dinâmica no nível da pasta de trabalho é criada a partir do PivotCache existente.

  • Um Gráfico Dinâmico autônomo é criado com uma referência à Tabela Dinâmica recém-criada.

Se o PivotCache já tiver uma Tabela Dinâmica associada:

  • O PivotCache é clonado.

  • Uma nova tabela dinâmica no nível da pasta de trabalho é criada com base no PivotCache clonado.

  • Um Gráfico Dinâmico autônomo é criado com uma referência à nova Tabela Dinâmica no nível da pasta de trabalho.

Exemplo

O código a seguir cria um Gráfico Dinâmico desacoplado de um objeto PivotCache.

Workbooks("Book1").Connections.Add _
     "cubes4 Adventure Works DW 2008 Special Char Adventure Works", "", Array( _
     "OLEDB;Provider=MSOLAP.4;Integrated Security=SSPI;Persist Security Info=True;Data Source=<server name here >;Initial Catalog=Adventure Works DW 2008" _
     , " Special Char"), Array("Adventure Works"), 1
   ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _
     ActiveWorkbook.Connections( _
     "cubes4 Adventure Works DW 2008 Special Char Adventure Works"), Version:= _
     xlPivotTableVersion14).CreatePivotChart(ChartDestination:="Sheet1").Select

   ActiveChart.ChartType = xlColumnClustered

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.