2 manieren om batchgewijs alle grafieken van alle bestaande werkbladen naar een nieuw gemaakte in Excel-werkmap te verplaatsen

Als elk werkblad in een Excel-werkmap meerdere grafieken bevat en u deze allemaal tegelijk naar een nieuw werkblad wilt verplaatsen, kunt u dit artikel raadplegen. We laten u hier twee eenvoudige manieren zien.

Nadat u grafieken voor de gegevens in elk werkblad van een Excel-werkmap hebt gemaakt, zodat u de gegevens volgens deze grafieken beter kunt analyseren, wilt u misschien al deze grafieken in hetzelfde werkblad verzamelen. Met andere woorden, u hoopt ze allemaal naar een nieuw werkblad te verplaatsen. Als er weinig grafieken zijn, kunt u gewoon de volgende methode 1 gebruiken om een ​​voor een te verplaatsen. Maar als er een groot aantal grafieken is, kunt u beter de laatste gebruiken.

Methode 1: Verplaats de kaart handmatig een voor een

1. Maak eerst een nieuw werkblad waar u alle grafieken naartoe wilt verplaatsen.
2. Open vervolgens een werkblad en pitch daarin op een diagram.
3. Klik vervolgens met de rechtermuisknop op de kaart en selecteer "Verplaats kaart" in het contextmenu.
4. Selecteer in het pop-upvenster "Grafiek verplaatsen" het nieuwe blad in de lijst "Object in" en klik op "OK".
5. De geselecteerde kaart wordt onmiddellijk verplaatst.
6. Nu kunt u op deze manier alle grafieken in alle werkbladen één voor één verwerken.

Methode 2: Batchverplaatsing met Excel VBA

1. Start om te beginnen de Excel VBA-editor volgens “Hoe u VBA-code in uw Excel uitvoert'.
2. Plaats vervolgens de volgende code in een module of project.

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. Druk daarna direct op "F5" om deze macro nu uit te voeren.
4. Sluit de VBA-editor af wanneer de macro is voltooid.
5. In het hoofdvenster van Excel ziet u een nieuw werkblad, waarin u alle grafieken kunt zien.

Vergelijk

Herstel beschadigd Excel-bestand

Excel-bestand is vatbaar voor corruptie omdat Excel af en toe kan crashen. Onder zo'n omstandigheid kun je maar beter een krachtig en betrouwbaar exemplaar voorbereiden xlsx herstel tool, zoals DataNumen Excel Repair. Het is handig wanneer uw Excel-bestand beschadigd raakt en de automatische herstelfunctie van Excel niet werkt.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com