2 spôsoby, ako hromadne presunúť všetky grafy zo všetkých existujúcich pracovných hárkov do nového vytvoreného v zošite programu Excel

Ak každý pracovný hárok v zošite programu Excel obsahuje niekoľko grafov a teraz by ste chceli všetky grafy hromadne presunúť do novovytvoreného pracovného hárka, môžete si prečítať tento príspevok. Tu vám predstavíme 2 jednoduché spôsoby.

Po vytvorení grafov pre údaje v každom pracovnom hárku zošita programu Excel, aby ste mohli lepšie analyzovať údaje podľa týchto grafov, môžete zhromaždiť všetky tieto grafy do rovnakého hárka. Inými slovami, môžete dúfať, že všetky presuniete do nového pracovného hárka. Ak je grafov málo, môžete postupovať jedným po druhom pomocou nasledujúcej metódy 1. Ak však existuje nespočetné množstvo grafov, je lepšie využiť ten druhý.

Metóda 1: Ručne presúvajte graf jeden po druhom

1. Najskôr vytvorte nový pracovný hárok, kam chcete presunúť všetky grafy.
2. Potom otvorte pracovný hárok a pridajte v ňom graf.
3. Ďalej kliknite pravým tlačidlom myši na graf a z kontextovej ponuky vyberte príkaz „Presunúť graf“.
4. V rozbaľovacom dialógovom okne „Presunúť graf“ vyberte nový list v zozname „Objekt v“ a kliknite na tlačidlo „OK“.
5. Vybratý graf sa presunie naraz.
6. Týmto spôsobom teraz môžete spracovávať všetky grafy vo všetkých pracovných hárkoch jeden po druhom.

Metóda 2: Dávkové presuny s programom Excel VBA

1. Najskôr spustite editor Excel VBA podľa „Ako spustiť kód VBA v programe Excel".
2. Potom vložte nasledujúci kód do modulu alebo projektu.

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. Potom priamo stlačte „F5“, aby ste spustili toto makro práve teraz.
4. Po dokončení makra ukončite editor VBA.
5. V hlavnom okne programu Excel môžete vidieť nový pracovný hárok, v ktorom vidíte všetky grafy.

Porovnanie

Opraviť poškodený súbor programu Excel

Súbor Excel je náchylný na poškodenie, pretože môže občas zlyhať. Za takýchto okolností si radšej pripravte mocného a dôveryhodného xlsx zotavenie nástroj, ako napr DataNumen Excel Repair. Bude sa vám hodiť, keď sa súbor programu Excel poškodí a funkcia automatického obnovenia programu Excel nebude fungovať.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S