Cette méthode introduira un VBA pour briser rapidement les liens entre tous les graphiques et leurs données source dans une feuille de calcul Excel. Veuillez procéder comme suit:

1. Activez la feuille de calcul spécifiée dans laquelle vous souhaitez rompre tous les liens du graphique et appuyez sur autre + F11 touches ensemble pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Module, puis collez le VBA dans la nouvelle fenêtre de module.

VBA: rompre tous les liens de graphique dans une feuille de calcul

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. presse F5 ou cliquez sur la Courir bouton pour exécuter ce VBA.

Vous verrez maintenant que tous les liens de graphique sont rompus avec leurs données source dans la feuille de calcul actuelle.

Si vous avez Kutools for Excel installé, vous pouvez appliquer son Détacher le graphique outil pour rompre rapidement le lien entre un graphique et ses données source en un seul clic dans Excel.

1. Sélectionnez le graphique dont vous devez rompre le lien dans Excel.

2Cliquez sur Kutools > Charts > Outils graphiques > Détacher le graphique pour activer cette fonctionnalité.

Ensuite, vous verrez que le lien entre le graphique sélectionné et ses données source a été immédiatement rompu.

Comment casser l'axe du graphique dans Excel?