Macro voor het extraheren van gegevens uit een grafiek in Excel

BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.

De Engelstalige versie van dit artikel is de volgende:300643
Voor een Microsoft Excel 2000-versie van dit artikel Zie213814.
Voor een Microsoft Excel 98-versie van dit artikel, Zie137016.
Samenvatting
In Microsoft Excel kunt u gegevens ophalen uit een grafiek zelfs Wanneer de gegevens zich in een extern werk blad of werkmap. Dit is handig in situaties waarin de grafiek is gemaakt van, of naar een ander bestand dat is gekoppeld niet beschikbaar is of andere manier beschadigd is. Wanneer de brongegevens voor een grafiek is verloren, de gegevens kunnen nog steeds worden opgehaald uit het diagram zelf, met behulp van een Microsoft Visual Basic for Applications-macro.
Meer informatie
Microsoft biedt program meer voorbeelden ter illustratie zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend met het programmeren bent taal worden opgespoord en de hulp middelen die worden gebruikt voor het maken en procedures voor fout opsporing. Ondersteuningstechnici van Microsoft kunnen helpen verklaren de de functionaliteit van een bepaalde procedure, maar zij zullen deze niet worden gewijzigd voorbeelden voor de toegevoegde functionaliteit of samens tellen van procedures om te voldoen aan de specifieke eisen.

De volgende voorbeeld macro plaatst de grafiek bron gegevens in een werk blad genaamd "Grafiek gegevens" in de actieve werkmap begin in de eerste kolom en de eerste rij.
  1. Voer de volgende macrocode in een module werk blad:
    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   NextEnd Sub					
  2. Een nieuw werk blad in de werkmap invoegt en wijzigt u "Grafiek gegevens" (zonder de aanhalings tekens).
  3. Selecteer de grafiek die u wilt ophalen de de onderliggende gegevens waarden.

    OPMERKING: De grafiek kan ofwel worden ingesloten in een werk blad of op een aparte grafiekblad.
  4. Voer deGetChartValuesmacro.

    De gegevens van de grafiek wordt geplaatst de Werk blad "Grafiek gegevens".

Stappen om de grafiek koppelen aan het herstelde gegevens

De grafiek interactief met de herstelde gegevens, u moet de grafiek koppelen aan het nieuwe gegevens blad, in plaats van de koppelingen te behouden de ontbrekende of beschadigde werkmap.
  1. Selecteer de grafiek en klikt u op een reeks naam van het blad zoeken waarop de grafiek is gekoppeld in de werkmap beschadigd is of ontbreekt. Naam van het blad in de formule reeks op de formule balk wordt weer gegeven.

    OPMERKING: De werk bladnaam mag de naam van de werkmap, die is ingesloten volgen in vierkante vierkante haakjes zoals "[Map1]" en het uitroep teken worden voorafgegaan door "!" (of enkel aanhalings teken en uitroep teken ""! ") dat geeft het begin van een cel verwijzing. Naam van het blad bevat alleen de tekens tussen de gesloten vierkante haak symbool '] ' en het uitroep teken (of apostrof en uitroep teken). Een apostrof weglaten als het onmiddellijk vóór de uitroep teken markeren, omdat een apostrof kan niet het laatste teken in een werk bladnaam.
  2. Dubbel klik op het tabblad van het nieuwe werk blad naamGrafiek gegevens.
  3. Typ de naam van het oorspronkelijke blad uit stap 1 over de gemarkeerde "Grafiek gegevens" en druk op ENTER. Deze naam moet hetzelfde zijn als de de naam van het blad uit de werkmap beschadigd is of ontbreekt.
  4. Als u dit bestand niet hebt opgeslagen met de grafiek en de gegevens blad, sla het bestand.
  5. In Excel 2003 of Excel 2002, klikt u opKoppelingenop hetBewerkenin het menu en klik vervolgens opBron wijzigen.

    In In Excel 2007, klikt u op deGegevensen klik opKoppelingen bewerkenin deConnenctionsgroep en klik vervolgens opBron wijzigen.
  6. In deBronbestandSelecteer de koppeling wilt wijzigen en klik vervolgens opBron wijzigen.
  7. In deKoppelingen wijzigendialoog venster Selecteer het nieuwe bestand met de herstelde gegevens en grafiek en klik vervolgens opOK.
  8. Als het volgende fout bericht
    De formule bevat een ongeldige externe verwijzing naar een werk blad.
    het is waarschijnlijk dat de model naam die u hebt getypt in stap 3 is niet hetzelfde als het origineel. Ga terug naar stap 1.
  9. HetBronbestandvak kan nu leeg zijn. Dit betekent dat alle koppelingen naar verwijzen de actieve bestand in plaats van het bestand ontbreekt of is beschadigd. Klik opSluiten.
Nu de grafiek verwijst naar en samenwerkt met de herstelde gegevens Klik op de naam blad in de actieve werkmap.
koppeling ontkoppelen recover beschadigd beschadiging repareren inf Excel 2002 XL2003 XL2007

Waarschuwing: dit artikel is automatisch vertaald

Eigenschappen

Artikel-id: 300643 - Laatst bijgewerkt: 09/20/2011 06:26:00 - Revisie: 3.0

Microsoft Office Excel 2007, Microsoft Excel 2002 Standard Edition

  • kbdtacode kbhowto kbprogramming kbmt KB300643 KbMtnl
Feedback