Slik bruker du en makro for � legge til etiketter p� datapunkt i punktdiagrammer eller boblediagrammer i Excel

Artikkel-ID: 213750 - Vis produkter som denne artikkelen gjelder for.

Sammendrag

I Microsoft Excel finnes det ingen innebygd kommando som automatisk fester tekstetiketter til datapunkt i punktdiagrammer eller boblediagrammer. Du kan imidlertid opprette en Microsoft Visual Basic for Applications-makro som gj�r dette. Denne artikkelen inneholder en eksempelmakro som utf�rer oppgaven i et punktdiagram. Den samme koden kan imidlertid brukes i et boblediagram.

Mer informasjon

Programmeringseksemplene som Microsoft bruker, er kun eksempler. Microsoft gir ingen garantier, direkte eller indirekte. Dette inkluderer, men er ikke begrenset til, eventuelle stilltiende garantier om salgbarhet eller anvendelighet for s�rskilte form�l. Denne artikkelen er basert p� at du er kjent med programmeringsspr�ket som brukes, og med verkt�yene som brukes til � opprette og feils�ke prosedyrer. Microsofts kundest�tteteknikere kan v�re behjelpelige med � forklare funksjonaliteten til en bestemt prosedyre. De kommer imidlertid ikke til � endre disse eksemplene for � gi forbedret funksjonalitet eller opprette prosedyrer for � dekke dine bestemte behov. Eksempelkoden i denne artikkelen antar at dataene og de tilknyttede etikettene er ordnet i et regneark i f�lgende format:

Den f�rste kolonnen inneholder dataetikettene.
Den andre kolonnen inneholder x-verdiene for punktdiagrammet.
Den tredje kolonnen og etterf�lgende kolonner inneholder y-verdiene for punktdiagrammet.

Obs!� Selv om det oppgitte eksemplet bare inneholder �n datakolonne for y-verdier, kan du bruke mer enn �n dataserie.

Hvis du vil bruke makroene i denne artikkelen, kan du opprette et diagram ved hjelp av f�lgende data:

   A1: Etiketter       B1: X-verdier   C1: Y-verdier
   A2: Datapunkt1   B2: 12          C2: 5
   A3: Datapunkt2   B3:  9          C3: 7
   A4: Datapunkt3   B4:  5          C4: 3
   A5: Datapunkt4   B5:  4          C5: 8
   A6: Datapunkt5   B6:  1          C6: 4

Obs!� Tabellen b�r ikke inneholde tomme kolonner, og kolonnen som inneholder dataetikettene, b�r ikke skilles fra kolonnen som inneholder x-verdiene. Etikettene og verdiene m� ordnes n�yaktig i formatet som er beskrevet i denne artikkelen. (Cellen �verst til venstre trenger ikke v�re celle A1.)

Bruk f�lgende fremgangsm�te for � feste tekstetiketter til datapunkt i et punktdiagram:

I regnearket som inneholder eksempeldataene, velger du celleomr�det B1:C6.
I Microsoft Office Excel 2003 og i tidligere versjoner av Excel f�lger du denne fremgangsm�ten:
1. Klikk Diagram p� Sett inn-menyen.
2. I dialogboksen Diagramveiviser - Trinn 1 av 4 - Diagramtype klikker du kategorien Standardtyper. Under Diagramtype klikker du Punktdiagram (XY), og deretter Neste.
3. I dialogboksen Diagramveiviser - Trinn 2 av 4 - kildedata for diagrammet klikker du kategorien Dataomr�de. Under Serie i klikker du Kolonner, og deretter Neste.
4. I dialogboksen Diagramveiviser - Trinn 3 av 4 - diagramalternativer klikker du Neste.
5. I dialogboksen Diagramveiviser - Trinn 4 av 4 - plassering av diagrammet klikker du Som nytt ark, og deretter klikker du Fullf�r.
I Microsoft Office Excel 2007 bruker du denne fremgangsm�ten:
1. Klikk kategorien Sett inn, klikk Punktdiagram i gruppen Diagrammer, og velg deretter type.
2. I kategorien Utforming klikker du Flytt diagram i Plassering-gruppen, klikker Nytt ark og deretter klikker du OK.
Trykk ALT+F11 for � starte Visual Basic-redigering.
Klikk Modul p� Sett inn-menyen.

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

Trykk ALT+Q for � g� tilbake til Excel.
Bytt til diagramarket.
I Excel 2003 og i tidligere versjoner av Excel velger du Makro p� Verkt�y-menyen, og deretter klikker du Makroer. Klikk AttachLabelsToPoints, og klikk deretter Kj�r for � kj�re makroen.

I Excel 2007 klikker du kategorien Utvikler og Makro i Kode-gruppen. Deretter velger du AttachLabelsToPoints og klikker Kj�r.