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

Překlady článku Překlady článku
ID článku: 213750 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Souhrn

V aplikaci Microsoft Excel je žádné vestavěné příkazu, automaticky připojí k datové body v xy bodový nebo bublinový textové popisky graf. Můžete však vytvořit Microsoft Visual Basic for Applications makro který nemá. Tento článek obsahuje ukázkové makro, které provede tuto úlohu XY bodový graf. 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é. Zejména jde o implicitní 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é se používají 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 podle listu následující formát:
  • První sloupec obsahuje popisky dat.
  • Druhý sloupec obsahuje hodnoty x 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 sloupce, obsahuje popisky by neměla být odděleny od sloupec, který obsahuje požadovaná data hodnoty x. Popisky a hodnoty, musí být podle přesně formát popsané v tomto článku. (Levá horní buňka nemá není nutné být buňky A1.)

Chcete-li připojit textové popisky datových bodů v XY bodový graf, postupujte takto:
  1. Vyberte v listu, který obsahuje ukázková data, oblast buněk B1:C6.
  2. V Aplikace 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 Průvodce grafem 1 / 4 - graf Typ Dialogové okno pole, klepněte na kartu Standardní typy pod Typ grafu, klepněte na tlačítko XY bodového grafua potom klepněte na tlačítko Další.
    3. V Průvodce grafem 2 / 4 - graf Zdroj dat Dialogové okno pole, klepněte na kartu Oblast dat v rámci Řady v, klepněte na příkaz sloupcea potom klepněte na tlačítko Další.
    4. V Průvodce grafem 3 / 4 - graf Možnosti Dialogové okno klepněte na tlačítko Další.
    5. V Graf průvodce - krok 4 ze 4 - graf Umístění Dialogové okno, klepněte Jako nový list možnost, a potom klepněte na tlačítko Dokončit.
    V aplikaci Microsoft Office Excel 2007 postupujte takto:
    1. Klepněte Vložit Klepněte na možnost Bodový v Grafy skupiny a vyberte typ.
    2. Na Návrh Klepněte na možnost Přesunout Graf v Umístění skupinu, 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 Aplikace Excel 2003 a v dřívějších verzích aplikace Excel přejděte na makro v nabídce Nástroje a potom klepněte na příkaz makra. Klepněte na tlačítko AttachLabelsToPointsa potom klepněte na příkaz Spustit makro spustit.

    V Aplikace Excel 2007, klepněte Developer Klepněte na možnostMakro v Kód skupiny, výběrAttachLabelsToPointsa potom klepněte na tlačítko Spustit.
Makro na popisky v buňkách a2: a6 připojí k datové body graf.

Vlastnosti

ID článku: 213750 - Poslední aktualizace: 7. června 2013 - Revize: 8.0
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel X pro počítače Macintosh
  • Microsoft Excel 2001 pro počítače Macintosh
  • Microsoft Excel 98 pro počítače Macintosh
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
Klíčová slova: 
kbchart kbdtacode kbhowto kbinfo kbprogramming kbmt KB213750 KbMtcs
Strojově přeložený článek
DŮLEŽITÉ: Tento článek je přeložen pomocí softwaru na strojový překlad Microsoft. Nepřesný či chybný překlad lze opravit prostřednictvím technologie Community Translation Framework (CTF). Microsoft nabízí strojově přeložené, komunitou dodatečně upravované články, a články přeložené lidmi s cílem zajistit přístup ke všem článkům v naší znalostní bázi ve více jazycích. Strojově přeložené a dodatečně upravované články mohou obsahovat chyby ve slovníku, syntaxi a gramatice. Společnost Microsoft není odpovědná za jakékoliv nepřesnosti, chyby nebo škody způsobené nesprávným překladem obsahu nebo jeho použitím našimi zákazníky. Více o CTF naleznete na http://support.microsoft.com/gp/machine-translation-corrections/cs.
Projděte si také anglickou verzi článku: 213750

Dejte nám zpětnou vazbu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com