Método PivotCache.CreatePivotChart (Excel)

  • Artículo

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

Comentarios

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.