XL2000: Makro zum Extrahieren von Daten aus einem Diagramm

In Microsoft Excel können Sie Daten aus einem Diagramm auch abrufen, wenn die Daten in einem externen Arbeitsblatt oder einer Arbeitsmappe. Dies ist hilfreich in Situationen, in denen das Diagramm wurde erstellt von oder mit einer anderen Datei, die nicht verfügbar oder beschädigt wurde verknüpft. Wenn die Datenquelle zu einem Diagramm verloren gegangen ist, können die Daten weiterhin aus dem Diagramm selbst durch abgerufen werden mithilfe eines Microsoft Visual Basic für Applikationen-Makro.

Microsoft bietet Programmierbeispiele für Abbildung nur ohne Gewährleistung oder konkludent. Dies umfasst, ist jedoch nicht beschränkt auf konkludenten Garantien der Handelsüblichkeit oder Eignung für einen bestimmten Zweck. Dieser Artikel setzt voraus, dass Sie mit der Programmiersprache, die Programmierungsbeispiele ist und mit den Tools, die zum Erstellen und Debuggen von Prozeduren verwendet werden vertraut sind. Microsoft Support-Technikern helfen Erläuterung die Funktionalität einer bestimmten Prozedur, Sie werden ändert jedoch nicht diese Beispiele bieten Funktionen hinzugefügt oder Verfahren, um Ihren Anforderungen entsprechend zu erstellen. Das folgende Beispielmakro fügt Quelldaten des Diagramms in einem Arbeitsblatt namens "ChartData" in der aktiven Arbeitsmappe Anfang in der ersten Spalte und der ersten Zeile.

1. Geben Sie den folgenden Makrocode in einem Modulblatt ein:

   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. Fügen Sie ein neues Arbeitsblatt in Ihre Arbeitsmappe und in "ChartData" (ohne Anführungszeichen) umbenennen.
3. Markieren Sie das Diagramm aus dem zugrunde liegenden Datenwerte extrahiert werden soll.
   
   Hinweis : das Diagramm kann entweder in einem Arbeitsblatt oder in einem separaten Diagrammblatt eingebettet.
4. Führen Sie das Makro GetChartValues .
   
   Die Daten aus dem Diagramm werden in das Arbeitsblatt "ChartData" platziert.

Schritte zum Verknüpfen des Diagramms mit der wiederhergestellten Daten

Um das Diagramm interaktiv mit den wiederhergestellten Daten werden, müssen Sie das Diagramm mit dem neuen Datenblatt verknüpfen, sondern behalten die Verknüpfungen zu der Arbeitsmappe fehlt oder ist beschädigt.

1. Wählen Sie das Diagramm, und klicken Sie auf eine Datenreihe den Blattnamen, mit dem das Diagramm verknüpft ist, in der beschädigten oder fehlenden Arbeitsmappe finden. Der Arbeitsblatt-Name wird in der Datenreihenformel in der Bearbeitungsleiste angezeigt.
   
   Hinweis : Blattname möglicherweise folgen Sie der Arbeitsmappe Name der in eckigen Klammern, z. B. "[Mappe1]" eingeschlossen ist und vor das Ausrufezeichen "!" (oder Apostroph und Ausrufezeichen "'!") Gibt den Anfang eines Zellbezugs an. Der Blattname des enthält nur die Zeichen zwischen der geschlossenen eckigen Klammer-Symbol "]" und dem Ausrufezeichen (oder Apostroph und Ausrufezeichen). Lassen Sie, alle Apostroph ist dies unmittelbar vor dem Ausrufezeichen, da ein Apostroph nicht das letzte Zeichen in einen Blattnamen werden kann.
2. Doppelklicken Sie auf die Registerkarte des neuen Blatts namens ChartData .
3. Geben Sie den ursprünglichen Blattnamen von Schritt 1 über die hervorgehobenen "ChartData", und drücken Sie die [EINGABETASTE]. Dieser Name muss den Blattnamen aus der beschädigten oder fehlenden Arbeitsmappe identisch sein.
4. Wenn Sie diese Datei nicht zusammen mit dem Diagramm und Blatt gespeichert haben, speichern Sie die Datei.
5. Klicken Sie im Menü Bearbeiten klicken Sie auf Verknüpfungen und klicken Sie dann auf Quelle ändern .
6. Wählen Sie im Feld Quelldatei die Verknüpfung ändern möchten, und klicken Sie dann auf Quelle ändern .
7. Wählen Sie in das Dialogfeld Verknüpfungen ändern die neue Datei mit der wiederhergestellten Daten und das Diagramm und klicken Sie dann auf OK .
8. Wenn Sie die folgenden Fehlermeldung erhalten
   Die Formel enthält einen ungültigen externen Verweis auf ein Arbeitsblatt.
   Es ist wahrscheinlich, dass der Blattnamen, den Sie in Schritt 3 eingegeben haben nicht mit dem Original identisch ist. Gehen Sie zurück zu Schritt 1.
9. Feld Quelldatei kann nun leer sein. Dies bedeutet, dass alle Hyperlinks der aktiven Datei, anstatt der fehlenden oder beschädigten Datei zeigen. Klicken Sie auf Schließen .

Das Diagramm verweist jetzt und interagiert mit der wiederhergestellten Daten auf dem umbenannten Blatt in der aktiven Arbeitsmappe.