asse del grafico non gestibile (parte2)

[marcoc]

ciao a tutti,
è possibile vincolare il valore minimo e il valore massimo dell'asse di un grafico a una cella nella quale c'è una formula?

avevo già scritto un post in merito ma mi son perso il file che avevo allegato...

[Anthony47]

Se riprendi la macro di Marius (in quella che credo sia la "parte 1" del problema di cui parli) vedrai che gia' vengono impostati Mix e Max di asse X secondo il contenuto di due celle.
viewtopic.php?f=26&t=112176&p=659229#p659223

Adattando quelle due linee dovresti ottenere quel che chiedi.

O no?

[marcoc]

ciao Anthony, non ho più il file originale...
il " Range("C3:D3") " a cosa è riferito?

[Anthony47]

In quel file C3:D3 era una cella unita in cui selezionavi una citta'; quindi la macro scattava tutte le volte che cambiavi la selezione della citta'.
Ma tu di quella macro devi prendere solo la parte che modifica gli assi; quindi:

Codice: Seleziona tutto

ActiveSheet.ChartObjects("Grafico 1").Select    '<<< Il nome del graph
ActiveChart.Axes(xlValue).MinimumScale = Range("A2").Value
ActiveChart.Axes(xlValue).MaximumScale = Range("A3").Value
ActiveWindow.RangeSelection.Select


[marcoc]

non riesco a venirne a capo...

ti carico il file qui:
https://wetransfer.com/downloads/fa96c9 ... 020/fce417

in "supporto per filiale" ho messo i due valori in Z1 e Z2
in "grafico filiale" c'è la cella per selezionare la filiale; con Padova il grafico si appiattisce.

grazie mille

[Marius44]

Ciao
A parte che se seleziono Padova il Grafico NON si appiattisce, mi si blocca al codice del Foglio3 (grafico filiali) che, insieme ad altri, è un foglio nascosto e non è possibile (non voglio crackare) scoprirlo in quanto c'è una password.
Elimina tutti i fogli che non ti servono e fai molta attenzione al nome del Grafico.

Ciao,
Mario

[Anthony47]

mi si blocca al codice del Foglio3 (grafico filiali) che, insieme ad altri, è un foglio nascosto e non è possibile (non voglio crackare) scoprirlo in quanto c'è una password...

Non so se nel frattempo Marco ha cambiato il file pubblicato, ma il foglio "grafico filiali" a me risulta regolarmente visibile.

... e fai molta attenzione al nome del Grafico

Infatti usando il nome giusto del grafico ("Grafico 2" e non "grafico filiali") l'impostazione viene regolarmente applicata:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
  ActiveSheet.ChartObjects("Grafico 2").Activate
'etc etc


Ciao

[marcoc]

l'ultima poi basta...
me la puoi ricaricare su wetransfer per favore?

non riesco a capire come mai se seleziono Padova l'asse mi parte sempre da zero; se confronto i due file, capisco dove ho sbagliato.

(mi serve un corso di VBA per dummies, lo so, mi piacerebbe farlo)

grazie

[Anthony47]

Lo trovi qui:
https://www.dropbox.com/s/1kcd3fc75ole3 ... .xlsm?dl=0

NB: ho modificato solo la Sub Worksheet_Change di Foglio3 ossia Grafico filiali, immagino la stessa modifica vada fatta sui fogli nascosti

[marcoc]

grazie,
c'è qualcosa che non va, vedo l'asse che rimane fisso tra 52% e 59% e nessuna linea per chi ha valori superiori; sembra che non prenda correttamente Z1 e Z2...

[Anthony47]

Parli del file da me condiviso o del tuo?
Forse hai le macro disabilitate?
Aggiungi Beep in fondo al codice e controlla che quando cambi citta' si senta

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.ChartObjects("grafico 2").Activate '<< NON "grafico filiali"
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = Sheets("supporto x filiali").Range("Z1").Value
ActiveChart.Axes(xlValue).MaximumScale = Sheets("supporto x filiali").Range("Z2").Value
ActiveWindow.RangeSelection.Select
Beep
End Sub

[marcoc]

Ecco perché non andava, maledetto pc aziendale (e maledetto bug dei 5/6 a prescindere)!

Uso il file per lavoro e il pc ha le macro disattivate per policy aziendale; devo caricare il file in un portale interno che me le valida con la firma digitale.

Comunque ho risolto, come sempre grazie 10.000!!

Buona giornata
Marco

[marcoc]

per fare lo stesso in altri file con diversi grafici, mi serve il nome tecnico del grafico (es. Grafico2), ma dove trovo questa info?

[Anthony47]

Quando selezioni un grafico dovresti vedere nella "Casella Nome" il nome dell'oggetto selezionato. Attenzione che nel tuo file il grafico e' raggruppato con una linea, quindi rischi di visualizzare il nome del gruppo.

Oppure usi "l'Indice" invece del nome; se sul foglio c'e' un solo grafico (e non ci sono grafici nascosti ):

Codice: Seleziona tutto

ActiveSheet.ChartObjects(1).Activate


Ciao

[marcoc]

non riesco a capire dove cercare la casella nome o come usare l'indice

[Marius44]

Ciao
Leggi con attenzione cosa ha scritto @Anthony.
Quando "selezioni un Grafico", guarda dove cis ta la barra della formula (cioè quella casella bianca dove scrivi). Bene, alla sua sinistra c'è un'altra casella bianca che ti espone il nome dell'oggetto selezionato.
Attento che tu hai raggruppato e in questo caso vedrai "Gruppo" e un numero. No. Deve "selezionare il Grafico" e allora vedrai i nome.

Se nel tuo foglio c'è solo un Grafico allora l'indice è il numero 1 (vedi il codice che ti è stato suggerito).

Ciao,
Mario

[marcoc]

ottimo, ci siamo!
grazie e alla prossima!