2 veidi, kā paketēt visas diagrammas no visām esošajām darblapām uz jaunu izveidotu Excel darbgrāmatā

Ja katrā Excel darbgrāmatas darblapā ir vairākas diagrammas un tagad vēlaties pārvietot visas diagrammas uz jaunu izveidotu darblapu, varat atsaukties uz šo ierakstu. Šeit mēs iepazīstināsim jūs ar 2 vienkāršiem veidiem.

Pēc datu diagrammu izveidošanas katrā Excel darbgrāmatas darblapā, lai labāk analizētu datus saskaņā ar šīm diagrammām, iespējams, vēlēsities apkopot visas šīs diagrammas vienā darblapā. Citiem vārdiem sakot, jūs varat cerēt tos visus pārvietot uz jaunu darblapu. Ja diagrammu ir maz, varat vienkārši izmantot šo 1. metodi, lai pārvietotos pa vienam. Tomēr, ja ir neskaitāmas diagrammas, labāk izmantot pēdējo.

1. metode: pārvietojiet diagrammu manuāli pa vienam

1. Sākumā izveidojiet jaunu darblapu, kurā vēlaties pārvietot visas diagrammas.
2. Pēc tam atveriet darblapu un izlieciet tajā diagrammu.
3. Pēc tam ar peles labo pogu noklikšķiniet uz diagrammas un konteksta izvēlnē atlasiet “Pārvietot diagrammu”.
4. Uznirstošajā dialoglodziņā “Pārvietot diagrammu” sarakstā “Object in” atlasiet jauno lapu un noklikšķiniet uz “OK”.
5. Uzreiz atlasītā diagramma tiks pārvietota.
6. Tagad jūs varat izmantot šo veidu, lai pa vienam apstrādātu visas diagrammas visās darblapās.

2. metode: paketes pārvietošana ar Excel VBA

1. Vispirms palaidiet Excel VBA redaktoru atbilstoši “Kā palaist VBA kodu savā Excel".
2. Pēc tam modulī vai projektā ievietojiet šādu kodu.

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. Pēc tam tieši nospiediet “F5”, lai palaistu šo makro tūlīt.
4. Kad makro ir pabeigts, izejiet no VBA redaktora.
5. Programmas Excel galvenajā logā varat redzēt jaunu darblapu, kurā varat redzēt visas diagrammas.

salīdzinājums

Labot bojāto Excel failu

Excel fails ir pakļauts korupcijai, jo Excel šad un tad var avarēt. Šādos apstākļos labāk sagatavojiet spēcīgu un uzticamu xlsx atkopšana rīks, piemēram, DataNumen Excel Repair. Tas noderēs, kad jūsu Excel fails tiks sabojāts un Excel automātiskās atkopšanas funkcija nedarbosies.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonta kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar