Método PivotCache.CreatePivotChart (Excel)

Cria um gráfico dinâmico autónomo a partir de um objeto PivotCache . Devolve um objeto Forma .

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	Variant	A folha de cálculo Destino.
XlChartType	Opcional	Variant	O tipo de gráfico.
Left	Opcional	Variant	A distância, em pontos, desde a margem esquerda do objeto até à margem esquerda da coluna A (numa folha de cálculo) ou à margem esquerda da área do gráfico (num gráfico).
Top	Opcional	Variant	A distância, em pontos, entre a borda superior da forma mais superior no intervalo de formas à borda superior da planilha.
Width	Opcional	Variant	A largura, em pontos, do objeto.
Height	Opcional	Variant	A altura, em pontos, do objeto.

Valor de retorno

Objeto Shape

Comentários

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

• É criada uma tabela dinâmica ao nível do livro a partir da PivotCache existente.

• É criado um gráfico dinâmico autónomo com uma referência à tabela dinâmica recém-criada.

Se a PivotCache já tiver uma tabela dinâmica associada:

• A PivotCache é clonada.

• É criada uma nova tabela dinâmica ao nível do livro com base na PivotCache clonada.

• É criado um gráfico dinâmico autónomo com uma referência à nova tabela dinâmica ao nível do livro.

Exemplo

O código seguinte cria um gráfico dinâmico desacoplado a partir 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.