Opzioni Tabelle Pivot

[astrigno]

Salve, vi chiedo se è possibile modificare una opzione delle tabelle Pivot che Excel 2016 propone per default.
In particolare vorrei defleggare l'opzione:
"Adatta larghezza colonne all'aggiornamento"

[peppo55]

Ciao astrigno,
seleziona una cella della pivot.
Seleziona "Analizza" poi seleziona Opzioni e dalla finestra di dialogo, deseleziona "Adatta larghezza colonne all'aggiornamento.

peppo

[Anthony47]

In aggiunta al suggerimento di Peppe, se vuoi farlo da vba, dopo che hai selezionato il foglio della pivot puoi usare qualcosa come

Codice: Seleziona tutto

    ActiveSheet.Range("A5").PivotTable.HasAutoFormat = False


Invece di "A5" utilizza l'indirizzo di una cella che certamente appartiene a qualla pivot.

Ciao

[astrigno]

Scusate ma forse non ho esposto correttamente il mio problema. Come modificare manualmente le opzioni ovviamente lo so fare, quello che chiedevo è se era possibile impostare per default su tutte le pivot quella opzione in modo che non sia costretto a farlo manualmente ogni volta che faccio una Pivot.
grazie

[Anthony47]

Non conosco un metodo per cambiare una volta per sempre le impostazioni di default.
Tuttavia puoi inserire nel tuo Personal.xlsm una macro che modifica le opzioni di una tabella gia' creata e poi inserire un pulsante nella tua "Barra di accesso rapido" o nel tuo "Ribbon" in modo da eseguire facilmente la personalizzazione.
Per personalizzare la barra di accesso rapido (QAT):
-tasto dx sulla QAT, scegli Personalizza QAT
-in "Scegli comandi da" seleziona Macro
-poi dall'elenco delle macro seleziona la tua, clicca il pulsante Aggiungi
-tramite il tasto Modifica puoi scegliere una icona da assegnare al comando
-completa con Ok

Ovviamente in questo caso, e' opportuno che il codice faccia riferimento non a una tabella specifica (come si faceva col codice ActiveSheet.Range("A5").PivotTable.etc etc) ma alla tabella selezionata; quindi usando
Selection.PivotTable.etc etc
Se la macro la registri allora il codice include normalmente qualcosa come ActiveSheet.PivotTables("Tabella_pivotN").Etc Etc
Per renderlo universale dovrai modificare la parte ActiveSheet.PivotTables("Tabella_pivotN") come da suggerimento precedente.

Ciao

[astrigno]

troppo complesso... faccio prima a farlo manualmente... grazie comunque