Come utilizzare una macro per aggiungere etichette punti dati in un grafico a dispersione xy o in un grafico a bolle in Excel

Riepilogo

In Microsoft Excel, non è alcun comando incorporato che si connette automaticamente le etichette di testo ai punti dati in un grafico a (dispersione XY) o a bolle. Tuttavia, è possibile creare un Visual Basic, Applications Edition di Microsoft macro che esegua questa operazione. In questo articolo contiene una macro di esempio che esegue questa operazione su un grafico a dispersione (XY). Tuttavia, lo stesso codice può essere utilizzato per un grafico a bolle.

Ulteriori informazioni

Microsoft fornisce esempi di programmazione illustrativo, senza alcuna garanzia espressa o implicita. Ciò include, ma non limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che si abbia familiarità con il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire la procedura di debug. Tecnici del supporto Microsoft consentono di spiegare la funzionalità di una particolare procedura. Tuttavia, essi non modificherà questi esempi per fornire funzionalità aggiuntive o creare procedure atte a soddisfare specifiche esigenze. Il codice di esempio in questo articolo si presuppone che i dati e le etichette associate sono disposti in un foglio di lavoro in base al formato seguente:

• La prima colonna contiene le etichette dati.

• La seconda contiene i valori x per il grafico a dispersione (XY).

• La terza colonna contiene i valori y per il grafico a dispersione (XY).

Nota: sebbene l'esempio fornito contenga una sola colonna di dati per i valori y, è possibile utilizzare più di una serie di dati.

Per utilizzare le macro in questo articolo, è possibile creare un grafico utilizzando i seguenti dati: A1: Labels B1: X Values C1: Y Values A2: DataPoint1 B2: 12 C2: 5 A3: DataPoint2 B3: 9 C3: 7 A4: DataPoint3 B4: 5 C4: 3 A5: DataPoint4 B5: 4 C5: 8 A6: DataPoint5 B6: 1 C6: 4 Nota: la colonna che contiene le etichette dati non deve essere separata dalla colonna che contiene i valori x e la tabella non può contenere colonne vuote. Le etichette e i valori devono essere disposti esattamente nel formato descritto in questo articolo. (La cella superiore sinistra non deve essere la cella A1.)

Per associare le etichette di testo ai punti dati in un grafico a dispersione (XY), procedere come segue:

1. Nel foglio di lavoro contenente i dati di esempio, selezionare l'intervallo di celle B1:C6.

2. In Microsoft Office Excel 2003 e nelle versioni precedenti di Excel, attenersi alla seguente procedura:

   1. Scegliere grafico dal menu Inserisci .

   2. Nella finestra di dialogo Creazione guidata grafico - passaggio 1 di 4 - tipo di grafico , fare clic sulla scheda Tipi Standard . Nella casella tipo di grafico, fare clic sul grafico a (dispersione XY)e quindi fare clic su Avanti.

   3. Nella finestra di dialogo Creazione guidata grafico - passaggio 2 di 4 - dati di origine del grafico , fare clic sulla scheda Intervallo dati . In serie, fare clic su colonnee quindi fare clic su Avanti.

   4. Nella finestra di dialogo Opzioni di creazione guidata grafico - passaggio 3 di 4 - grafico , fare clic su Avanti.

   5. Nella finestra di dialogo Creazione guidata grafico - passaggio 4 di 4 - posizione del grafico , fare clic sull'opzione Crea nuovo foglio e quindi fare clic su Fine.

   In Microsoft Office Excel 2007, attenersi alla seguente procedura:

   1. Fare clic sulla scheda Inserisci , fare clic sul grafico a dispersione nel gruppo di grafici e quindi selezionare un tipo.

   2. Fare clic su Sposta grafico nel gruppo posizione della scheda struttura , fare clic su nuovo foglio e quindi fare clic su OK.

3. Premere ALT + F11 per avviare l'Editor di Visual Basic.

4. Scegliere modulodal menu Inserisci .

5. Digitare il seguente codice di esempio nel modulo:

   Sub AttachLabelsToPoints()
   
      'Dimension variables.
      Dim Counter As Integer, ChartName As String, xVals As String
   
      ' Disable screen updating while the subroutine is run.
      Application.ScreenUpdating = False
   
      'Store the formula for the first series in "xVals".
      xVals = ActiveChart.SeriesCollection(1).Formula
   
      'Extract the range for the data from xVals.
      xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
         Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
      xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
      Do While Left(xVals, 1) = ","
         xVals = Mid(xVals, 2)
      Loop
   
      'Attach a label to each data point in the chart.
      For Counter = 1 To Range(xVals).Cells.Count
        ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
            True
         ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
            Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
      Next Counter
   
   End Sub

6. Premere ALT + Q per tornare a Excel.

7. Passare al foglio grafico.

8. In Excel 2003 e nelle versioni precedenti di Excel, scegliere Macro dal menu Strumenti e quindi fare clic su macro. Fare clic su AttachLabelsToPointse quindi fare clic su Esegui per eseguire la macro.
   
   In Excel 2007, fare clic sulla scheda Developer , fare clic su Macro nel gruppo di codice , selezionare AttachLabelsToPointse quindi fare clic su Esegui.

La macro associa le etichette in a2: a6 celle i dati del grafico.