Método PivotCache.CreatePivotChart (Excel)

Crea un gráfico dinámico independiente a partir de un objeto PivotCache . Devuelve un objeto Shape .

Sintaxis

expresión. CreatePivotChart (ChartDestination, XlChartType, Left, Top, Width, Height)

expresión Variable que representa un objeto PivotCache .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
ChartDestination	Obligatorio	Variant	Hoja de cálculo Destino.
XlChartType	Opcional	Variant	Tipo de gráfico.
Left	Opcional	Variant	Distancia, en puntos, desde el borde izquierdo del objeto hasta el borde izquierdo de la columna A (en una hoja de cálculo) o el borde izquierdo del área del gráfico (en un gráfico).
Top	Opcional	Variant	La distancia, en puntos, desde el borde superior de la forma superior del rango hasta el borde superior de la hoja de cálculo.
Width	Opcional	Variant	El ancho del objeto, en puntos.
Height	Opcional	Variant	Alto del objeto, en puntos.

Valor devuelto

Objeto Shape

Observaciones

Si el objeto PivotCache desde el que se llama al método no tiene ninguna tabla dinámica adjunta:

• Se crea una tabla dinámica de nivel de libro a partir de pivotcache existente.

• Se crea un gráfico dinámico independiente con una referencia a la tabla dinámica recién creada.

Si PivotCache ya tiene una tabla dinámica asociada:

• PivotCache se clona.

• Se crea una nueva tabla dinámica de nivel de libro basada en pivotcache clonado.

• Se crea un gráfico dinámico independiente con una referencia a la nueva tabla dinámica de nivel de libro.

Ejemplo

El código siguiente crea un gráfico dinámico desacoplado a partir de un 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.