Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Etichette (Valore =0) in grafici excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Etichette (Valore =0) in grafici excel

Postdi al3ssio » 17/10/08 16:38

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
al3ssio
Utente Senior
 
Post: 234
Iscritto il: 08/05/04 15:59

Sponsor
 

Re: Etichette (Valore =0) in grafici excel

Postdi Anthony47 » 19/10/08 00:52

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Etichette (Valore =0) in grafici excel

Postdi al3ssio » 19/10/08 14:11

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
al3ssio
Utente Senior
 
Post: 234
Iscritto il: 08/05/04 15:59

Re: Etichette (Valore =0) in grafici excel

Postdi Anthony47 » 19/10/08 18:24

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Etichette (Valore =0) in grafici excel

Postdi al3ssio » 19/10/08 19:04

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
al3ssio
Utente Senior
 
Post: 234
Iscritto il: 08/05/04 15:59

Re: Etichette (Valore =0) in grafici excel

Postdi Anthony47 » 19/10/08 20:34

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Etichette (Valore =0) in grafici excel

Postdi al3ssio » 19/10/08 20:39

...ero proprio li'! :)

grazie!

A
al3ssio
Utente Senior
 
Post: 234
Iscritto il: 08/05/04 15:59

Re: Etichette (Valore =0) in grafici excel

Postdi tonisa » 08/11/08 16:30

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????
tonisa
Newbie
 
Post: 9
Iscritto il: 20/10/08 11:19

Re: Etichette (Valore =0) in grafici excel

Postdi Anthony47 » 09/11/08 00:34

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Etichette (Valore =0) in grafici excel":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti