Formato Tablas dinamicas

Saludos al grupo:

Despues de mucho tiempo leyendo, aprendiendo y obteniendo respuestas a
consultas en este foro, me he encontrado con algunos problemillas que espero
me puedan ayudar.

1) Formato tablas dinamicas.

Tengo un formato definido para las tablas dinamicas basado en su posicion,
es decir, segun si el campo esta en fila, columna, pagina, si es subtotal de
fila o columna, tanto en datos o no, etc... vamos, todo lo enrevesado que
se pueda imaginar, incluyendo lineas de separacion verticales y/o
horizontales.

Si despues de aplicar todos los formatos deseados, modifico la vista de la
tabla dinamica, estos se pierden, por lo que todo el trabajo de formateo de
la tabla se pierde. La pregunta es: ¿existe una forma de poner formatos
personalizados a las tablas dinamicas y que se mantengan siempre, al igual
que los autoformatos?

Lo he solucionado con programando eventos de la hoja y
aplicando los formatos (basados en estilos) por código, pero no lo veo muy
ortodoxo, la verdad, y ademas me ha provocado algun que otro problema
co-lateral...


2) Objeto 'FORMATO' de celda.

¿ Existe alguna forma de 'guardar' (no copiar) todo el formato de una celda
por codigo ?

Quiero guardar todo el formato de una celda, borrarla, y luego aplicar este
formato a otra celda, pero entendiendo como formato el objeto Font, asi como
los objetos Interior, Borders, etc...

Bueno, mientras estoy escribiendo se me acaba de ocurrir de crear un objeto
Style temporal basado en la celda deseada, borrar luego dicha celda, y
aplicar mas tarde el estilo 'a mano' a la celda destino para, por ultimo,
borrar dicho estilo temporal... pero si alguien tiene alguna otra
idea/sugerencia sera bienvenida :-)


3) Estilos en tablas dinamicas.

Esto mas que una pregunta es un comentario para si alguien le pasa lo mismo.

En una tabla dinamica, aplico por código a algunas celdas un estilo:
pivottable.rowfields(1).labelrange.style = "Estilo"
Me pone el formato correctamente pero si quiero saber el estilo aplicado a
dichas celdas (inmediatamente despues):
? pivottable.rowfields(1).labelrange.cells(1).style
el estilo sigue siendo el Normal!!

Parece una tonteria, pero me serviría para (junto con la pregunta 2)
averiguar
que celdas han cambiado 'alguna cosa' de su estilo.

Todo ello para Excel 2000 SP3

Gracias por leer hasta aqui, y gracias también por anticipado, saludos...

Luis