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"
¿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.
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"
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.
Entonces cual seria la opcion para copiar la tabla dinamica como imagen???
Cual es el metodo que deberia usar y como???