mostrar tabla dinamica en UserForm

6 envíos / 0 nuevos
Último envío
jazo
Imagen de jazo
Offline
última acción: Hace 7 años 1 mes
alta: 29/07/2012 - 05:11
Puntos: 5
mostrar tabla dinamica en UserForm

estoy tratando de desplegar una tabla dinamica en un formulario; los controles que estoy utizando son: Command Button, Image y UserForm En el formulario inserte un control "Image" casi del tamaño conveniente para mostrar la tabla dinamica y el Command Button esta independientemente visible en la hoja. la idea es. El control "Image" permite incorporar graficos o imagenes importados de archivos externos a tu libro.

El truco seria pues, exportar la Tabla Dinamica a mostrar, grabarlo como un archivo externo y luego mostrarlo. Al activar el Command Button se debe desplegar el formulario con la imagen de la tabla dinamica. El codigo es el siguiente.

Option Explicit

Dim strRuta As String

Private Sub UserForm_Initialize()

strRuta = ThisWorkbook. Path & Application. PathSeparator & "Tabla. Gif"

End Sub

Private Sub UserForm_Activate()

Dim Tabla As PivotTable

Set Tabla = ActiveSheet. PivotTables("Tabla dinamica1"). PivotSelect

Tabla. Export strRuta, "GIF" Image1. Picture = LoadPicture(strRuta)

Set Tabla = Nothing

End Sub

Private Sub Worksheet_Activate()

UserForm1. Show

End Sub

El error me marca en la siguiente linea "set tabla = activesheet pivottables("tabla dinamica3"). Pivotselect"

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 7 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10995
Re: mostrar tabla dinamica en UserForm

¿qué error te da?

pueden ser varias cosas.

prueba a asignar la tabla dinámica a tu variable "tabla" sin el "pivotselect" del final, 

Set Tabla = ActiveSheet. PivotTables("Tabla dinamica1")

 

 

------
Ya sé Excel, pero necesito más.

visitante (no verificado)
Imagen de visitante
Re: mostrar tabla dinamica en UserForm

Ya lo probe,s pero me marca error en la linea:

Tabla.Export strRuta, "GIF"

con el siguiente mensaje

"el objeto no admite esta propiedad o metodo"

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 7 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10995
Re: mostrar tabla dinamica en UserForm

el método .Export sólo lo tienen los gráficos, no puedes utilizarlo en una tabla dinámica para guardarla como una imagen.

 

------
Ya sé Excel, pero necesito más.

visitante (no verificado)
Imagen de visitante
Re: mostrar tabla dinamica en UserForm

Entonces cual seria la opcion para copiar la tabla dinamica como imagen???

visitante (no verificado)
Imagen de visitante
Re: mostrar tabla dinamica en UserForm

Cual es el metodo que deberia usar y como???