assi nei grafici di excel

[moguant]

Salve a tutti, vorrei sapere se è fattibile una cosa con excel ... premesso che uso ancora la versione di excel 97 (va più che bene per l'uso che ne devo fare) ... in uno stesso foglio ho creato 2 grafici indipendenti di tipo azionario, che prendono i dati da celle diverse ... in ognuno dei 2 grafici esistono assi delle ordinate sia primari che secondari, che per necessità devono avere uguali parametri (esempio: grafico A con assi primari e secondari che vanno da 100 a 200, e grafico B con assi primari e secondari che vanno da 500 a 600) ...

chiedo ... è possibile fare in modo che in ognuno dei due grafici gli assi delle ordinate si aggiornino contemporaneamente ed automaticamente con una funzione e/o macro che prende i valori di minimo e massimo da 4 celle del file (nell'esempio, celle A1 e A2 per il massimo e minimo del grafico A, e celle B1 e B2 per il massimo e minimo del grafico B), visto che massimi e minimi cambiano nel tempo?

Spero di aver spiegato bene la mia necessità, ringrazio anticipatamente tutti coloro che potranno aiutarmi.

[moguant]

... immaginavo fosse difficile ... non impossibile

[ricky53]

Ciao,
prova con queste istruzioni (da adattare al tuo nome foglio ed al tuo nome grafico)

Codice: Seleziona tutto

    ActiveSheet.ChartObjects("Grafico 1").Activate
    With ActiveChart.Axes(xlValue)
        .MinimumScale = Sheets("Foglio1").[A1].Value
        .MaximumScale = Sheets("Foglio1").[A2].Value
    End With


[moguant]

ciao ricky, ti ringrazio per la risposta ... sono autodidatta, e finora ho fatto solo cose semplici, non conoscevo nemmeno l'esistenza dell'istruzione 'with' ... proverò ad usare le tue indicazioni, solo dopo 1) aver capito come 'si chiama' il grafico (ed eventualmente come si può cambiare nome) 2) dove inserire le istruzioni ... stasera mi metto d'impegno, se ho difficoltà mi ripropongo, e in ogni caso scriverò l'esito finale ...

[ricky53]

Ciao,
suggerimento: utilizza il "registratore di macro" ed esegui le operazioni che vuoi effettutare sul grafico, otterrai il codice sul quale agire ...

a ritrovarci.

[moguant]

ieri notte ho risolto il problema, grazie ai preziosi suggerimenti di ricky ... in realtà, ho apportato una piccola modifca, e il risultato è perfettamente in linea con le mie necessità ... riporto qui di seguito il listato, in caso di necessità da parte di qualcuno:

ActiveSheet.ChartObjects("Grafico 1").Activate
With ActiveChart.Axes(xlValue)
.MinimumScale = Sheets("Foglio 1").[A1].Value
.MaximumScale = Sheets("Foglio 1").[A2].Value
End With
With ActiveChart.Axes(xlValue, xlSecondary)
.MinimumScale = Sheets("Foglio 1").[A1].Value
.MaximumScale = Sheets("Foglio 1").[A2].Value
End With

Così facendo, sia l'asse primario delle x, che l'asse secondario delle x riportano gli stessi valori ...

Poi, con un'applicazione 'calculate' si può fare in modo che le celle A1 e A2 possano aggiornarsi in modo automatico, e inserendo il listato di cui sopra in apposita macro, il grafico e le sue scale si aggiornano in modo del tutto automatico.