Een macro gebruiken om labels toe te voegen aan gegevenspunten in een spreidings- of bellendiagram in Excel

Samenvatting

Microsoft Excel bevat geen ingebouwde opdracht voor het automatisch koppelen van tekst labels aan gegevenspunten in een spreidings- of bellendiagram. U kunt deze functionaliteit echter gebruiken in Excel door een VBA-macro (Visual Basic for Applications) te schrijven. Dit artikel bevat een voorbeeldmacro waarmee u deze bewerking kunt uitvoeren in een spreidingsdiagram. U kunt dezelfde code echter ook gebruiken voor een bellendiagram.

Meer informatie

Microsoft biedt programmeervoorbeelden alleen ter illustratie, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal die wordt gedemonstreerd en met de hulpprogramma's die worden gebruikt om procedures te maken en fouten op te sporen. Ondersteuningstechnici van Microsoft kunnen u helpen de functionaliteit van een bepaalde procedure uit te leggen. Deze voorbeelden worden echter niet gewijzigd om extra functionaliteit te bieden of procedures te maken die voldoen aan uw specifieke vereisten. In de voorbeeldcode in dit artikel wordt ervan uitgegaan dat de gegevens en bijbehorende labels op de volgende manier zijn opgenomen in een werkblad:

• De eerste kolom bevat de gegevenslabels.

• De tweede kolom bevat de x-waarden voor het spreidingsdiagram.

• De derde kolom en de kolommen daarna bevatten de y-waarden voor het spreidingsdiagram.

Opmerking: Hoewel het voorbeeld maar één kolom met gegevens voor de y-waarden bevat, kunt u meer dan één gegevensreeks gebruiken.

Als u de macro's in dit artikel wilt gebruiken, maakt u een grafiek met behulp van de volgende gegevens: A1: Labels B1: X-waarden C1: Y-waarden 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 OPMERKING: De tabel mag geen lege kolommen bevatten en de kolom met de gegevenslabels mag niet worden gescheiden van de kolom met de x-waarden. De labels en waarden moeten exact worden opgemaakt volgens de bovenstaande gegevens. (De cel linksboven hoeft niet cel A1 te zijn.)

Als u tekstlabels wilt koppelen aan gegevenspunten in een xy-diagram (spreidingsdiagram), voert u de volgende stappen uit:

1. Selecteer in het werkblad met de voorbeeldgegevens het bereik B1:C6.

2. Ga als volgt te werk in Microsoft Office Excel 2003 en in oudere versies van Excel:

   1. Klik op Grafiek in het menu Invoegen .

   2. Klik in het dialoogvenster Wizard Grafieken - Stap 1 van 4 - Grafiektype op het tabblad Standaardtypen . Klik onder Grafiektype op XY (spreiding) en klik vervolgens op Volgende.

   3. Klik in het dialoogvenster Wizard Grafieken - Stap 2 van 4 – Brongegevens van grafiek op het tabblad Gegevensbereik . Klik onder Reeks in op Kolommen en klik vervolgens op Volgende.

   4. Klik in het dialoogvenster Grafiekwizard - Stap 3 van 4 - Grafiekopties op Volgende.

   5. Klik in de wizard Grafiek - Stap 4 van 4 -Grafieklocatie op de optie Als nieuw blad en klik vervolgens op Voltooien.

   Ga als volgt te werk in Microsoft Office Excel 2007:

   1. Open het tabblad Invoegen , klik op Spreiding in de groep Grafieken en selecteer een grafiektype.

   2. Open het tabblad Ontwerp , klik op Grafiek verplaatsen in de groep Locatie , selecteer Nieuw blad en klik op OK.

3. Druk op Alt+F11 om de Visual Basic Editor te openen.

4. Klik op Module in het menu Invoegen.

5. Typ de volgende voorbeeldcode in het modulewerkblad:

   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. Druk op ALT+Q om terug te keren naar Excel.

7. Ga naar het grafiekblad.

8. Wijs in Excel 2003 en in eerdere versies van Excel de optie Macro aan in het menu Extra en klik op Macro's. Klik op AttachLabelsToPointsen klik op Uitvoeren om de macro uit te voeren.
   
   Klik in Excel 2007 op het tabblad Ontwikkelaars , klik op Macro in de groep Code , selecteer BijvoegenLabelsToPoints en klik vervolgens op Uitvoeren.

De macro koppelt de labels in cellen A2:A6 aan de gegevenspunten in de grafiek.