Excel - insertar tabla dinamica en un formulario

   
Vista:

insertar tabla dinamica en un formulario

Publicado por Juan jazo2212@gmail.com (5 intervenciones) el 22/07/2012 09:08:18
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

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
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