Slik bruker du en makro til å legge til etiketter i datapunkter i et punktdiagram med xy eller i et boblediagram i Excel

Sammendrag

I Microsoft Excel finnes det ingen innebygd kommando som automatisk knytter tekstetiketter til datapunkter i et punkt- eller boblediagram. Du kan imidlertid opprette en Microsoft Visual Basic for Applications-makro som gjør dette. Denne artikkelen inneholder en eksempelmakro som utfører denne oppgaven i et punktdiagram for XY. Den samme koden kan imidlertid brukes for et boblediagram.

Mer informasjon

Microsoft tilbyr programmeringseksempler bare for illustrasjon, uten garanti enten uttrykt eller underforstått. Dette omfatter, men er ikke begrenset til, de underforståtte garantiene om salgbarhet eller egnethet til et bestemt formål. Denne artikkelen antar at du er kjent med programmeringsspråket som demonstreres, og med verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan bidra til å forklare funksjonaliteten til en bestemt prosedyre. De vil imidlertid ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å oppfylle dine spesifikke krav. Eksempelkoden i denne artikkelen forutsetter at dataene og de tilknyttede etikettene er ordnet i et regneark i henhold til følgende format:

• Den første kolonnen inneholder dataetikettene.

• Den andre kolonnen inneholder x-verdiene for punktdiagrammet (xy).

• Den tredje og påfølgende kolonnen inneholder y-verdiene for punktdiagrammet (xy).

OBS! Selv om det angitte eksemplet bare inneholder én kolonne med data for y-verdier, kan du bruke mer enn én serie med data.

Hvis du vil bruke makroene i denne artikkelen, oppretter du et diagram ved hjelp av følgende data: A1: Etiketter B1: X-verdier C1: Y-verdier 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 OBS! Tabellen bør ikke inneholde tomme kolonner, og kolonnen som inneholder dataetikettene, må ikke skilles fra kolonnen som inneholder x-verdiene. Etikettene og verdiene må angis nøyaktig i formatet som er beskrevet i denne artikkelen. (Cellen øverst til venstre trenger ikke være celle A1.)

Hvis du vil knytte tekstetiketter til datapunkter i et punktdiagram, følger du disse trinnene:

1. Merk celleområdet B1:C6 i regnearket som inneholder eksempeldataene.

2. Følg disse trinnene i Microsoft Office Excel 2003 og tidligere versjoner av Excel:

   1. Klikk Diagram på Sett inn-menyen.

   2. Klikk fanen Standard Typer i diagramveiviseren – trinn 1 av 4 – Diagramtype. Klikk XY (punkt) under Diagramtype, og klikk deretter Neste.

   3. Klikk fanen Dataområde i diagramveiviseren – trinn 2 av 4 – Diagramkildedata . Klikk Kolonner under Serier i, og klikk deretter Neste.

   4. Klikk Neste i diagramveiviseren – trinn 3 av 4 – Dialogboksen Diagramalternativer .

   5. Klikk alternativet Som nytt ark i diagramveiviseren - trinn 4 av 4 -Diagramplassering, og klikk deretter Fullfør.

   Følg disse trinnene i Microsoft Office Excel 2007:

   1. Klikk sett inn-fanen , klikk Punkt i Diagrammer-gruppen , og velg deretter en type.

   2. Klikk Flytt diagram i Plassering-gruppen i kategorien Utforming , klikk Nytt ark , og klikk deretter OK.

3. Trykk ALT+F11 for å starte Visual Basic Editor.

4. Klikk Modul på Sett inn-menyen.

5. Skriv inn følgende eksempelkode i modularket:

   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. Trykk ALT+Q for å gå tilbake til Excel.

7. Bytt til diagramarket.

8. Pek på Makro på Verktøy-menyen i Excel 2003 og tidligere versjoner av Excel, og klikk deretter Makroer. Klikk AttachLabelsToPoints, og klikk deretter Kjør for å kjøre makroen.
   
   Klikk fanen Utvikler i Excel 2007, klikk Makro i Kode-gruppen , velg AttachLabelsToPoints, og klikk deretter Kjør.

Makroen knytter etikettene i celle A2:A6 til datapunktene i diagrammet.