2 načina grupnog premještanja svih grafikona sa svih postojećih radnih listova na novi kreirani u Excel radnoj knjizi

Ako svaki radni list u Excelovoj radnoj knjizi sadrži nekoliko grafikona i sada želite sve grafikone premjestiti na novoizrađeni radni list, možete se pozvati na ovaj članak. Ovdje ćemo vam predstaviti 2 jednostavna načina.

Nakon što izradite grafikone za podatke na svakom radnom listu Excelove radne knjige, kako biste bolje analizirali podatke u skladu s tim grafikonima, možda ćete htjeti sakupiti sve te grafikone na istom radnom listu. Drugim riječima, možete se nadati da ćete ih sve premjestiti na novi radni list. Ako ima malo grafikona, možete jednostavno koristiti sljedeću metodu 1 za pomicanje jedan po jedan. Ipak, ako postoji bezbroj grafikona, bolje je da upotrijebite potonji.

Metoda 1: Ručno pomicanje grafikona jedan po jedan

1. Najprije izradite novi radni list na koji želite premjestiti sve grafikone.
2. Zatim otvorite radni list i na njemu postavite grafikon.
3. Zatim desnom tipkom miša kliknite grafikon i odaberite "Premjesti grafikon" iz kontekstnog izbornika.
4. U skočnom dijaloškom okviru "Premjesti grafikon" odaberite novi list na popisu "Objekt u" i kliknite "U redu".
5. Odabrani grafikon će se odmah premjestiti.
6. Sada možete koristiti ovaj način za obradu svih grafikona u svim radnim listovima jedan po jedan.

Metoda 2: Skupno premještanje s Excel VBA

1. Za početak pokrenite Excel VBA editor prema “Kako pokrenuti VBA kod u vašem Excelu".
2. Zatim stavite sljedeći kod u modul ili projekt.

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. Nakon toga, izravno pritisnite “F5” da biste odmah pokrenuli ovu makronaredbu.
4. Kada makro završi, izađite iz VBA uređivača.
5. U glavnom prozoru programa Excel možete vidjeti novi radni list u kojem možete vidjeti sve grafikone.

usporedba

Popravite oštećenu Excel datoteku

Excel datoteka sklona je oštećenju jer se Excel tu i tamo može srušiti. Pod takvim okolnostima, bolje pripremite moćnog i pouzdanog xlsx oporavak alat, kao npr DataNumen Excel Repair. Dobro će doći kada se vaša Excel datoteka ošteti i Excelova značajka automatskog oporavka ne radi.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravi sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com