Macro voor het extraheren van gegevens uit een grafiek in Excel

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 300643 - Bekijk de producten waarop dit artikel van toepassing is.
Voor een Microsoft Excel 2000-versie van dit artikel Zie213814.
Voor een Microsoft Excel 98-versie van dit artikel, Zie137016.
Alles uitklappen | Alles samenvouwen

Op deze pagina

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
       Next
    
    End 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.

Eigenschappen

Artikel ID: 300643 - Laatste beoordeling: dinsdag 20 september 2011 - Wijziging: 3.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
Trefwoorden: 
kbdtacode kbhowto kbprogramming kbmt KB300643 KbMtnl
Automatisch vertaald artikel
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

Geef ons feedback

 

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