Címkék hozzáadása makróval xy pontdiagram vagy buborékdiagram adatpontjaihoz az Excelben

Összegzés

A Microsoft Excel alkalmazásban nincs olyan beépített parancs, amellyel automatikusan szövegcímkéket csatolhat az xy (pont-) vagy buborékdiagram adatpontjaihoz. Készíthet azonban olyan Microsoft Visual Basic for Applications makrót, amellyel ezt megteheti. Ebben a cikkben egy olyan mintamakró található, amely a feladatot XY pontdiagramon hajtja végre. Ugyanez a kód azonban használható buborékdiagramhoz is.

További információ

A Microsoft csak illusztrációs céllal kínál programozási példákat, kifejezett vagy vélelmezett garancia nélkül. Ez magában foglalja, de nem kizárólagosan a forgalmazhatóságra vagy az adott célra való alkalmasságra vonatkozó vélelmezett garanciát. 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, és nem építenek ki eljárásokat kifejezetten az Ön igényeire. A cikkben szereplő mintakód feltételezi, hogy az adatok és a hozzájuk tartozó címkék a következő formátum szerint vannak elrendezve egy munkalapon:

• Az első oszlop az adatfeliratokat tartalmazza.
• A második oszlop a pontdiagram x értékeit tartalmazza.
• A harmadik és az azt követő oszlopok a pontdiagram y értékeit tartalmazzák.

MEGJEGYZÉS: Bár az y értékekhez csak egy adatoszlop tartozik, több adatsor is használható.

A cikkben szereplő makrók használatához hozzon létre egy diagramot az alábbi adatok felhasználásával:

A1: Címkék B1: X értékek C1: Y értékek 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 ne tartalmazzon üres oszlopokat, és az adatfeliratokat tartalmazó oszlopot ne válassza el az x értékeket tartalmazó oszloptól. A címkéket és az értékeket pontosan a jelen cikkben leírt formátumban kell elrendezni. (A bal felső cellának nem kell az A1 cellának lennie.)

Ha szöveges feliratokat szeretne a pontdiagram (XY) adatpontjaihoz csatolni, 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 Beszúrás menü Diagram elemére.
   2. A Diagram varázsló – 1/4. lépés – Diagramtípus párbeszédpanelen kattintson a Szabványos típusok fülre. A Diagramtípus csoportban kattintson az XY (pont) elemre, majd a Tovább gombra.
   3. A Diagram varázsló – 2/4. lépés - Diagram forrásadatai párbeszédpanelen kattintson az Adattartomány fülre. Az Adatsor beküldése csoportban kattintson az Oszlopok elemre, 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 jelölje be az Új munkalapként választógombot, majd kattintson a Befejezés gombra.

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

   1. Kattintson a Beszúrás lapra, majd a Diagramok csoport Pont elemére, és válasszon egy típust.
   2. A Tervezés lapon kattintson a Hely csoport Diagram áthelyezése gombjára, válassza az Új lap lehetőséget, majd kattintson az OK gombra.

3. A Visual Basic Editor elindításához nyomja le az ALT+F11 billentyűkombinációt.

4. A Beszúrás menüben kattintson a Modul lehetőségre.

5. Írja be a modullapra az alábbi mintakódot:

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

7. Váltás a diagramlapra.

8. Az Excel 2003-ban és az Excel korábbi verzióiban mutasson az Eszközök menü Makró parancsára, majd kattintson a Makrók parancsra. Kattintson a AttachLabelsToPoints elemre, majd a Futtatás gombra a makró futtatásához.

   Az Excel 2007-ben kattintson a Fejlesztőeszközök fülre, a Kód csoportban kattintson a Makró elemre, válassza a AttachLabelsToPoints lehetőséget, majd kattintson a Futtatás gombra.

A makró az A2:A6 cellák feliratait a diagram adatpontjaihoz csatolja.