Excel - Insertar tabla dinamica en un UserForm

   
Vista:

Insertar tabla dinamica en un UserForm

Publicado por juan jazo2212@gmail.com (5 intervenciones) el 22/07/2012 21:50:51
Amigos 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 gráficos o imágenes importados de archivos externos a tu libro. El truco será, 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 dinámica3").PivotSelect
Tabla.Export strRuta, "GIF"
Image1.Picture = LoadPicture(strRuta)
Set Tabla = Nothing

End Sub

Private Sub CommandButton1_Click()
UserForm1.Show

End Sub

El error me marca en la siguiente linea "set tabla = activesheet pivottables("tabla dinamica3").pivotselect"
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder