Přidání popisků k datové body v xy bodový graf nebo bublinový graf v aplikaci Excel pomocí makra

Souhrn

V aplikaci Microsoft Excel je žádné vestavěné příkaz, který automaticky připojí k datové body v xy bodový nebo bublinový graf textové popisky. Můžete však vytvořit Microsoft Visual Basic for Applications makro, které provádí. Tento článek obsahuje ukázkové makro, které provede tuto úlohu XY bodového grafu. Stejný kód lze však použít pro bublinový graf.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci bez žádné záruky výslovně uvedené nebo odvozené. To zahrnuje, ale není omezen pouze na předpokládané záruky obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předmětem ukázky a s nástroji, které slouží k vytvoření a ladění skriptu. Pracovníci podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu. Nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků. Ukázkový kód v tomto článku se předpokládá, že data a přidružené popisy jsou uspořádány v listu podle následující formát:
  • První sloupec obsahuje popisky dat.
  • Druhý sloupec obsahuje hodnoty x pro xy (bodový) graf.
  • Třetí a následující sloupce obsahují hodnoty y pro xy (bodový) graf.
POZNÁMKA: v příkladu obsahuje pouze jeden sloupec dat y hodnoty, můžete použít více než jednu řadu dat.

Chcete-li použít makra v tomto článku, vytvoření grafu pomocí následující data:
   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
POZNÁMKA: Tabulka nesmí obsahovat prázdné sloupce a sloupec, který obsahuje popisky dat by neměla být oddělen od sloupec obsahující hodnoty x. Popisky a hodnoty, musí být podle přesně formát popsané v tomto článku. (Levá horní buňka nemá být buňky A1.)

Připojit text popisků k datové body v xy (bodový) graf, postupujte takto:
  1. Na listu, který obsahuje ukázková data vyberte oblast buněk B1:C6.
  2. V aplikaci Microsoft Office Excel 2003 a v dřívějších verzích aplikace Excel postupujte takto:
    1. V nabídce Vložit klepněte na graf .
    2. V dialogovém okně Průvodce grafem - Krok 1 / 4 - typ grafu klepněte na kartu Standardní typy . Ve skupinovém rámečku typ grafuklepněte na tlačítko XY (bodový)a potom klepněte na tlačítko Další.
    3. V dialogovém okně Zdrojová Data grafu Průvodce grafem - Krok 2 ze 4 - klepněte na kartu Datové oblasti . V rámci řady vklepněte na příkaz sloupcea potom klepněte na tlačítko Další.
    4. V dialogovém okně Průvodce grafem - Krok 3 / 4 - graf možnosti klepněte na tlačítko Další.
    5. V dialogovém okně Průvodce grafem - Krok 4 4 - umístění grafu klepněte na přepínač Nový list a potom klepněte na tlačítko Dokončit.
    V aplikaci Microsoft Office Excel 2007 postupujte takto:
    1. Klepněte na kartu Vložit , klepněte na tlačítko
      Bodový graf skupiny a pak vyberte typ.
    2. Na kartě Návrh klepněte ve skupinovém rámečku umístění klepněte na tlačítko Přesunout graf , klepněte na tlačítko
      Nový list a potom klepněte na tlačítko OK.
  3. Stiskněte ALT + F11 spusťte Editor jazyka Visual Basic.
  4. V nabídce Vložit klepněte na modul.
  5. V listu modulu zadejte následující ukázkový kód:
    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. Stiskněte klávesy ALT + Q vraťte do aplikace Excel.
  7. Přepněte do listu s grafem.
  8. V aplikaci Excel 2003 a v dřívějších verzích aplikace Excel přejděte v nabídce Nástroje na příkaz makro a potom klepněte na příkaz makra. Klepněte AttachLabelsToPointsa klepněte na příkaz Spustit makro spustit.

    V aplikaci Excel 2007 klepněte na kartu Vývojář , klikněte na tlačítko
    Makra ve skupině kód , vyberte
    AttachLabelsToPointsa potom klepněte na příkaz Spustit.
Makro připojí k datové body v grafu popisky v buňkách a2: a6.
Vlastnosti

ID článku: 213750 - Poslední kontrola: 10. 1. 2017 - Revize: 1

Váš názor