Etichette (Valore =0) in grafici excel

[al3ssio]

Ciao a tutti,

Come sempre ho un bel quesito semplice semplice (per voi "maghi" di excel!): è possibile fare in modo che in un grafico, ad esempio a barre, l'etichetta con il valore non appaia se pari a zero?

Grazie,

Alessio

[Anthony47]

Quello che chiedi lo puoi fare (solo?) con una macro, ad esempio la seguente:

Codice: Seleziona tutto

Sub GrEtich()
'Inserisce Label di valore sul grafico selezionato

'Azzera labels
    ActiveChart.ChartArea.Select
    ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
        HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=False, _
        ShowValue:=False, ShowPercentage:=False, ShowBubbleSize:=False

'Numero di serie:
CSeries = ActiveChart.SeriesCollection.Count

'MsgBox ("Ci sono " & CSeries & " serie")

'===Assegna label di Valore a ogni Punto di ogni serie
For I = 1 To CSeries
Set pts = ActiveChart.SeriesCollection(I).Points
PC = pts.Count
For JJ = 1 To PC
pts(JJ).ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False, ShowSeriesName:=False, ShowValue:=True
Next JJ
'==Eventuale formattazione
'== modificare, commentare o scommentare secondo i bisogni
    ActiveChart.SeriesCollection(I).DataLabels.Select
'    Selection.AutoScaleFont = True
    With Selection.Font
        .Name = "Arial"
        .Size = 6
'        .Underline = xlUnderlineStyleSingle
'        .ColorIndex = xlAutomatic
'        .Background = xlAutomatic
    End With
'===

Next I     'Ripeti per Serie
ActiveSheet.ChartObjects(1).Activate
ActiveSheet.Range("A1").Select

End Sub

(da una risposta data a Wittelsbach tempo fa)
Questa pero' mette l' etichetta su TUTTI i punti delle serie presenti nel grafico selezionato al momento del lancio: devi modificarla nel ciclo For JJ = 1 To PC /Next JJ per subordinare l' esecuzione dell' istruzione " ApplyDataLabels" al fatto che quel valore non sia a zero, agganciandola all' origine dati della serie; purtroppo stasera non ho tempo per fare altre veriche, prova a portarti avanti da solo.

Ciao.

[al3ssio]

Granzia Anthonzy,

Purtroppo... con le macro non sono (affatto) pratico... :-(

Non c'e' nessun altro che ha magari una soluzione piu' semplice?

O, magari, è la volta buona per mettermici una volta per tutte ed imparare questo cavolo di VBA! Nessun manuale, sito con versione per apprendimeto accelerato da consigliarmi?

Grazie,

Alessio

[Anthony47]

Ehmmm... avendo poco tempo ieri sera ho pensato di riutilizzare il codice di una precedente risposta, ma come spesso succede il giorno dopo la vedi piu' semplice.
Infatti dovrebbe essere sufficiente:
-assegnare l' etichetta alle serie
-selezionare sul grafico uno dei valori delle etichette (vengono selezionati tutti)
-menu /Formato /Etichette selezionate; tab Numero, poi scegli un formato Personalizzato che evita di visualizzare lo "0", ad esempio "_(* #.#0_);_(* (#.#0);_(* ""_);_(@_)"
-ripetere per le altre serie

Per quanto riguarda il vba, non e' mai tropo tardi per cominciare a registrare una macro, esaminarne e interpretare il codice, cominciare a fare piccole modifiche, osare con modifiche sempre piu' ardite.

Ciao.

[al3ssio]

Aha! Grazie!

Questa soluzione si' che mi piace! :-)

Solo una domanda, Anthony: io ho copia-incollato il tuo formato personalizzato, ma, volendo in futuro farne uno io, qual è la sintassi? Come faccio a leggere nel tuo formato "_(* #.#0_);_(* (#.#0);_(* ""_);_(@_)" che esso impedisce la visualizzazione dello zero?

Grazie mille!

Alessio

[Anthony47]

Vedi l' help on line di excel alla voce "Creare o eliminare un formato numerico personalizzato"; lo "zero" viene visualizzato come una "" (stringa vuota, come da terza definizione).
Per curiosita' prova a usare questa stringa: "_(* #.#0_);_(* (#.#0);_(* "Ciao"_);_(@_)"

Per completezza devo aggiungere che la stringa piu' semplice dovrebbe essere questa: "0;-0;;@"

Ciao.

[al3ssio]

...ero proprio li'!

grazie!

A

[tonisa]

Leggevo questo post..sto facendo dei grafici per una presentazione all'università e mi chiedevo se è il caso di togliere le etichette pari a zero o se lasciarle??Cosa ne pensate????

[Anthony47]

Secondo me anche lo "zero" ha il suo significato. Ma e' un commento da esperto di numeri non da esperto di comunicazione e vale in proporzione!

Ciao.