2 façons de déplacer par lots tous les graphiques de toutes les feuilles de calcul existantes vers une nouvelle créée dans le classeur Excel

Si chaque feuille de calcul d'un classeur Excel contient plusieurs graphiques et que vous souhaitez les déplacer tous par lots vers une nouvelle feuille de calcul, cet article peut vous être utile. Nous vous présentons ici deux méthodes simples.

Après avoir créé des graphiques pour les données de chaque feuille de calcul d'un classeur Excel, afin de mieux analyser les données en fonction de ces graphiques, vous souhaiterez peut-être rassembler tous ces graphiques dans une même feuille de calcul. En d'autres termes, vous pouvez espérer les déplacer tous vers une nouvelle feuille de calcul. S'il y a peu de graphiques, vous pouvez simplement utiliser la méthode 1 suivante pour vous déplacer un par un. Pourtant, s'il existe une myriade de graphiques, il est préférable d'utiliser le dernier.

Méthode 1 : déplacer manuellement le graphique un par un

1. Dans un premier temps, créez une nouvelle feuille de calcul dans laquelle vous souhaitez déplacer tous les graphiques.
2. Ensuite, ouvrez une feuille de calcul et présentez-y un graphique.
3. Ensuite, faites un clic droit sur le graphique et sélectionnez "Déplacer le graphique" dans le menu contextuel.
4. Dans la boîte de dialogue contextuelle "Déplacer le graphique", sélectionnez la nouvelle feuille dans la liste "Objet dans" et cliquez sur "OK".
5. Immédiatement, le graphique sélectionné sera déplacé.
6. Maintenant, vous pouvez utiliser cette méthode pour traiter tous les graphiques de toutes les feuilles de calcul un par un.

Méthode 2 : déplacement par lots avec Excel VBA

1. Pour commencer, lancez l'éditeur Excel VBA selon "Comment exécuter le code VBA dans votre Excel" .
2. Ensuite, placez le code suivant dans un module ou un projet.

Sub MoveAllCharts()
    Dim strNewSheet As String
    Dim objTargetWorksheet As Worksheet
    Dim objWorksheet As Worksheet
    Dim objChart As Object

    'Create a new sheet
    strNewSheet = "Charts"
    ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)).Name = strNewSheet
    Set objTargetWorksheet = Application.Worksheets(strNewSheet)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If objWorksheet.Name <> strNewSheet Then
           'Move each chart to the new sheet one by one
           For Each objChart In objWorksheet.ChartObjects
               objChart.Chart.Location xlLocationAsObject, strNewSheet
           Next objChart
        End If
    Next

    objTargetWorksheet.Activate
End Sub

3. Ensuite, appuyez directement sur "F5" pour exécuter cette macro dès maintenant.
4. Lorsque la macro se termine, quittez l'éditeur VBA.
5. Dans la fenêtre principale d'Excel, vous pouvez voir une nouvelle feuille de calcul, dans laquelle vous pouvez voir tous les graphiques.

Comparaison

Réparer un fichier Excel endommagé

Le fichier Excel est sujet à la corruption car Excel peut planter de temps en temps. Dans une telle circonstance, vous feriez mieux de préparer un puissant et digne de confiance récupération xlsx outil, tel que DataNumen Excel Repair. Cela vous sera utile lorsque votre fichier Excel sera corrompu et que la fonction de récupération automatique d'Excel ne fonctionnera pas.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com