Método PivotCache.CreatePivotChart (Excel)

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.