[RESUELTO]Macro para trabajar con Tabla Dinamica

[Villanoj]

He buscado en el foro informacion sobre como trabajar con tablas dinamicas y "filtrarlas" pero sin usar filtros ,solo haciendo visible lo que quiero que se vea en la tabla.Esto es como seleccionar manualmente del dropbox lo que quiero que se vea en la tabla y no encontrado nada , solo informacion de filtros.
En el API se habla de DataPilotItem y la propiedad isHiden solo que no e encontrado ejemplos de como usar esta opcion en una tabla dinamica.
Cualquier ayuda o tip se agradeceria mucho.

Saludos.

[mauricio]

Este tema ya se ha tratado en estos foros, una sencilla búsqueda te habría dado la respuesta.
https://forum.openoffice.org/es/forum/v ... 50&t=11998

Saludos

[Villanoj]

Como lo indique en la pregunta , eso es lo que e encontrado y no es por lo que pregunte.
En palabras sencillas , quiero hacer "filtros" (entre comillas) sin usar filtros. Quiero usar la opcion de hacer visibles o invisibles el contenido de la tabla dinamica.
Lo mismo que poner la palomita o quitar la palomita en los resultados de la tabla manualmente pero usando macro.
Segun el API se hace con DataPilotItem cambiando la propiedad isHidden , lo que no e podido encontrar son ejemplos de como usar este servicio y aplicar el cambio a la propiedad.

Los filtros no me han servido porque necesito cambiar y dejar visibles varios Items de la tabla en 3 o 4 campos diferentes.

Espero explicar bien lo que ando buscando.

Saludos.

[mauricio]

Como lo indico en mi respuesta... ya esta respondido... ¿probaste el código mostrado?...

[Villanoj]

Ya e probado multiples combinaciones de filtros como el de tu ejemplo y no dan lo que requiero ya que al aplicar el filtro al campo 2 se quita el del campo 1 y viceversa , por eso ando buscando trabajar con hacer visibles o invisibles los campos .
Creo que es lo mismo que te preguntaron en el link que enviaste al final solo que ya no se respondio.

En excel este codigo hace el truco:

For Each oPI In HojaExcel.PivotTables("Vehiculos").PivotFields("COLOR").PivotItems
Select Case oPI.Name
Case "ROJO", "VERDE", "AZUL"
Case Else
oPI.Visible = False
End Select
Next oPI

Ando buscando algo similar para openoffice.

[fornelasa]

Una posible opción:

Código: Seleccionar todo

Sub bTabla
		oDoc = ThisComponent.CurrentController
		hoja = oDoc.ActiveSheet
	     oTD = hoja.getDataPilotTables.GetByName("Vehiculos")
   	   campo = oTD.RowFields.GetByName("COLOR")
       For i = 0 To (campo.GetItems.count - 1)
       		Select Case campo.GetItems.getByIndex(i).Name
       	    Case "ROJO", "VERDE", "AZUL"
            Case Else
       	       campo.GetItems.getByIndex(i).IsHidden = True
     		End Select
       Next
End Sub

En caso de no ser así por favor anexa archivo ejemplo.
Saludos, Federico.

[Villanoj]

Excelente , esto era exactamente lo que andaba buscando.
Muchas gracias Federico.