Címkék hozzáadása egy xy pontdiagram adatpontjaihoz makróval vagy az Excel buborékdiagramjában

Összefoglalás

A Microsoft Excelben nincs olyan beépített parancs, amely automatikusan szövegfeliratokat csatol egy xy (pont) vagy buborékdiagram adatpontjaihoz. Létrehozhat azonban olyan Microsoft Visual Basic for Applications makrót, amely ezt teszi. Ez a cikk egy mintamakrót tartalmaz, amely végrehajtja ezt a feladatot egy XY pontdiagramon. Ugyanez a kód használható buborékdiagramokhoz is.

További információ

A Microsoft csak illusztrációkhoz kínál programozási példákat, kifejezett vagy hallgatólagos garancia nélkül. Ez magában foglalja, de nem kizárólagosan az egy adott célra való eladhatóságra vagy alkalmasságra vonatkozó vélelmezett garanciákat. Ez a cikk feltételezi, hogy ismeri a bemutatott programozási nyelvet, valamint az eljárások létrehozásához és hibakereséséhez használt eszközöket. A Microsoft támogatási szakemberei segíthetnek elmagyarázni egy adott eljárás működését. Azonban nem módosítják ezeket a példákat, hogy további funkciókat biztosítsanak, vagy eljárásokat építsenek ki az adott követelményeknek megfelelően. A cikkben szereplő mintakód feltételezi, hogy az adatok és a kapcsolódó címkék a következő formátum szerint vannak elrendezve egy munkalapon:

• Az első oszlop tartalmazza az adatfeliratokat.

• A második oszlop az xy (pontdiagram) x értékeit tartalmazza.

• A harmadik és az azt követő oszlopok tartalmazzák az xy (pontdiagram) y értékeit.

MEGJEGYZÉS: Bár a megadott példa csak egy oszlopnyi adatot tartalmaz az y értékekhez, több adatsort is használhat.

A cikkben szereplő makrók használatához hozzon létre egy diagramot a következő adatokkal: 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 MEGJEGYZÉS: A táblázat nem tartalmazhat üres oszlopokat, és az adatfeliratokat tartalmazó oszlopot nem szabad elválasztani az x értékeket tartalmazó oszloptól. A címkéket és az értékeket pontosan az ebben a cikkben leírt formátumban kell meghatározni. (A bal felső cellának nem kell A1 cellának lennie.)

Ha szöveges címkéket szeretne csatolni egy xy (pontdiagram) adatpontjaihoz, kövesse az alábbi lépéseket:

1. A mintaadatokat tartalmazó munkalapon jelölje ki a B1:C6 cellatartományt.

2. A Microsoft Office Excel 2003-ban és az Excel korábbi verzióiban kövesse az alábbi lépéseket:

   1. Kattintson a Diagram elemre a Beszúrás menüben.

   2. A Diagram varázsló – 1./4. lépés – Diagramtípus párbeszédpanelen kattintson a Szokásos típusok fülre. A Diagram típusa területen kattintson az XY (Pont) elemre, majd a Tovább gombra.

   3. A Diagram varázsló – 4/2. lépés – Diagramforrásadatok párbeszédpanelen kattintson az Adattartomány fülre. Az Adatsorok csoportban kattintson az Oszlopok, majd a Tovább gombra.

   4. A Diagram varázsló – 3./4. lépés – Diagrambeállítások párbeszédpanelen kattintson a Tovább gombra.

   5. A Diagram varázsló – 4/ 4. lépés – Diagram helye párbeszédpanelen kattintson az Új lapként lehetőségre, majd a Befejezés gombra.

   A Microsoft Office Excel 2007-ben kövesse az alábbi lépéseket:

   1. Kattintson a Beszúrás fülre, kattintson a Diagramok csoportban a Pont elemre, majd válasszon egy típust.

   2. A Tervezés lap Hely csoportjában kattintson a Diagram áthelyezése elemre, kattintson az Új lap elemre, majd az OK gombra.

3. Az ALT+F11 billentyűkombinációt lenyomva indítsa el a Visual Basic Editor alkalmazást.

4. A Beszúrás menüben kattintson a Modul elemre.

5. Írja be a következő mintakódot a modullapra:

   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. Nyomja le az ALT+Q billentyűkombinációt az Excelbe való visszatéréshez.

7. Váltson a diagramlapra.

8. Az Excel 2003-ban és az Excel korábbi verzióiban mutasson az Eszközök menü Makró pontjára, majd kattintson a Makrók elemre. Kattintson az AttachLabelsToPoints elemre, majd a Futtatás gombra a makró futtatásához.
   
   Az Excel 2007-ben kattintson a Fejlesztőeszközök fülre, kattintson a Makró elemre a Kód csoportban, válassza az AttachLabelsToPoints elemet, majd kattintson a Futtatás gombra.

A makró az A2:A6 cellacímkéket a diagram adatpontjaihoz csatolja.