Makro extrahovat data z grafu v aplikaci Excel

Překlady článku Překlady článku
ID článku: 300643 - Produkty, které se vztahují k tomuto článku.
Microsoft Excel 2000 verzi tohoto článku naleznete 213814.
Microsoft Excel 98 a dřívější verzi tohoto článku naleznete 137016.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

V aplikaci Microsoft Excel můžete načíst data z grafu i když je data v externím listu nebo sešitu. To je užitečné v situacích, kde grafu byla vytvořena z nebo propojen jiný soubor, který je k dispozici nebo byl poškozen nějakým způsobem. Při ztrátě zdrojová data do grafu data lze stále načíst z grafu sám pomocí Microsoft Visual Basic for Applications makro.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené,. včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické 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ů uživatele.

Následující ukázkové makro umístí zdrojových dat v grafu v listu nazývá "ChartData" v aktivním sešitu začátku v prvním sloupci a první řádek.
  1. V listu modulu zadejte následující kód makra:
    Sub GetChartValues()
       Dim NumberOfRows As Integer
       Dim X As Object
       Counter = 2
    
       ' Calculate the number of rows of data.
       NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)
    
       Worksheets("ChartData").Cells(1, 1) = "X Values"
    
       ' Write x-axis values to worksheet.
       With Worksheets("ChartData")
          .Range(.Cells(2, 1), _
          .Cells(NumberOfRows + 1, 1)) = _
          Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
       End With
    
       ' Loop through all series in the chart and write their values to
       ' the worksheet.
       For Each X In ActiveChart.SeriesCollection
          Worksheets("ChartData").Cells(1, Counter) = X.Name
    
          With Worksheets("ChartData")
             .Range(.Cells(2, Counter), _
             .Cells(NumberOfRows + 1, Counter)) = _
             Application.Transpose(X.Values)
          End With
    
          Counter = Counter + 1
       Next
    
    End Sub
    					
  2. Vložit nový list do sešitu a přejmenovat "ChartData" (bez uvozovek).
  3. Vyberte graf, ze kterého chcete extrahovat podkladové hodnoty data.

    Poznámka: grafu lze vložit buď na listu nebo na zvláštním listu s grafem.
  4. Spustit makro GetChartValues.

    Data z grafu je umístěna v listu "ChartData".

Kroky odkaz na obnovenou dat grafu

Chcete-li být interaktivní obnovená data grafu, je třeba graf propojit nový list dat než zachovat odkazy na chybějící nebo poškozený sešit.
  1. Vyberte graf a klepněte na řadu najít název listu, které je graf propojen sešitu poškozen nebo chybí. Řadu vzorce v řádku vzorců se zobrazí název listu.

    Poznámka: název listu může postupujte název sešitu, který je uzavřena v hranatých závorkách, například "[Sesit1]," a předcházet vykřičník "!" (nebo apostrof a vykřičník "'!") Označuje začátek odkaz na buňku. Název listu obsahuje pouze znaky mezi symbol uzavřené hranatá závorka "]" a vykřičník (nebo apostrof a vykřičník). Ponechejte mimo jakékoli apostrof Pokud bezprostředně před vykřičník, protože apostrof nemůže být poslední znak v názvu listu.
  2. Poklepejte na kartě nový list nazývá ChartData.
  3. Zadejte původní název listu z kroku 1 přes zvýrazněné "ChartData" a stiskněte klávesu ENTER. Tento název musí být stejný jako název listu ze sešitu poškozen nebo chybí.
  4. Pokud jste neuložili tento soubor s grafu a data listu, uložte soubor.
  5. V aplikaci Excel 2003 nebo Excel 2002 klepněte v nabídce Úpravy na příkaz propojení a potom klepněte na tlačítko Změnit zdroj.

    V aplikaci Excel 2007 klepněte na kartu data, klepněte na tlačítko Upravit propojení v Connenctions skupiny a potom klepněte na tlačítko Změnit zdroj.
  6. Do pole Zdroj souboru vyberte odkaz změnit a klepněte na tlačítko Změnit zdroj.
  7. V dialogovém okně Změnit propojení vyberte nový soubor s obnovená data a graf a potom klepněte na tlačítko OK.
  8. Může se také zobrazit následující chybová zpráva
    Vzorec obsahuje neplatný externí odkaz do listu.
    je pravděpodobné, že název listu, který jste zadali v kroku 3 není stejný jako původní. Přejděte ke kroku 1.
  9. Pole Zdroj souboru může být nyní prázdné. Označuje, že všechny odkazy přejděte aktivního souboru, nikoli soubor chybí nebo je poškozen. Klepněte na tlačítko Zavřít.
V grafu nyní odkazuje a spolupracuje s obnovená data na přejmenovaný list v aktivním sešitu.

Vlastnosti

ID článku: 300643 - Poslední aktualizace: 31. ledna 2007 - Revize: 4.1
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
Klíčová slova: 
kbmt kbdtacode kbhowto kbprogramming KB300643 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:300643

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