Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie man Diagrammverknüpfungen zu Quelldaten in Excel bricht?

Im Allgemeinen wird das Diagramm automatisch geändert, wenn wir die Quelldaten ändern. In manchen Fällen möchte ich das Diagramm jedoch beibehalten, wenn sich die Quelldaten ändern. Hier zeigt Ihnen dieser Artikel die einfache Möglichkeit, Diagrammverknüpfungen mit ihren Quelldaten in Excel zu brechen.

Brechen Sie Diagramm-Verknüpfungen zu Quelldaten mit VBA



Brechen Sie Diagramm-Verknüpfungen zu Quelldaten mit VBA

Diese Methode führt eine VBA ein, um die Verknüpfungen zwischen allen Diagrammen und ihren Quelldaten in einem Excel-Arbeitsblatt schnell zu trennen. Bitte wie folgt vorgehen:

1. Aktivieren Sie das angegebene Arbeitsblatt, in dem Sie alle Diagrammverknüpfungen aufheben möchten, und drücken Sie Andere + F11 zusammen, um das Microsoft Visual Basic für Applikationen-Fenster zu öffnen.

2. Klicken Sie Einsatz > Modulund fügen Sie dann die VBA in das neue Modulfenster ein.

VBA: Bricht alle Diagrammverknüpfungen in einem Arbeitsblatt

Sub BreakChartLinks()
Dim I As Long
Dim xChartCount As Long
Dim xLinkArr As Variant
Dim xSerColl As Variant
xLinkArr = ActiveWorkbook.LinkSources(xlLinkTypeExcelLinks)
If Not IsEmpty(xLinkArr) Then
For I = LBound(xLinkArr) To UBound(xLinkArr)
ActiveWorkbook.BreakLink xLinkArr(I), xlLinkTypeExcelLinks
Next I
End If
xChartCount = ActiveSheet.ChartObjects.Count
If xChartCount <> 0 Then
For I = 1 To xChartCount
ActiveSheet.ChartObjects(I).Activate
For Each xSerColl In ActiveChart.SeriesCollection
xSerColl.Values = xSerColl.Values
xSerColl.XValues = xSerColl.XValues
xSerColl.Name = xSerColl.Name
Next
Next
End If
End Sub

3. Drücken Sie F5 Taste oder klicken Sie auf Run Schaltfläche, um diesen VBA auszuführen.

Jetzt sehen Sie, dass alle Diagrammverknüpfungen zu ihren Quelldaten im aktuellen Arbeitsblatt unterbrochen sind.


In Verbindung stehende Artikel:



Empfohlene Produktivitätswerkzeuge für Excel

Kutools for Excel hilft Ihnen, Ihre Arbeit immer im Voraus zu erledigen und sich von der Masse abzuheben

  • Mehr als 300 leistungsstarke erweiterte Funktionen, die für 1500-Arbeitsszenarien entwickelt wurden und die Produktivität um 70% steigern, geben Ihnen mehr Zeit, sich um Ihre Familie zu kümmern und das Leben zu genießen.
  • Sie müssen keine Formeln und VBA-Codes mehr auswendig lernen. Geben Sie Ihrem Gehirn eine Pause.
  • Werden Sie ein Excel-Experte in 3 Minuten. Komplizierte und wiederholte Operationen können in Sekunden durchgeführt werden.
  • Reduzieren Sie jeden Tag Tausende von Tastatur- und Mausoperationen und verabschieden Sie sich jetzt von Berufskrankheiten.
  • 110,000 hochwirksame Mitarbeiter und 300 + weltweit renommierte Unternehmen.
  • Kostenlose Testversion für 60-Tage mit allen Funktionen. Geld-zurück-Garantie für 60-Tage. 2 Jahre kostenloses Upgrade und Support.

Bringt das Browsen und Bearbeiten von Registerkarten in Microsoft Office, das weitaus leistungsstärker ist als die Registerkarten des Browsers

  • Die Registerkarte "Office" wurde für Word, Excel, PowerPoint und andere Office-Anwendungen entwickelt: Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.