Note: The other languages of the website are Google-translated. Back to English

Jak exportovat všechny obrázky najednou z aplikace Excel?

Předpokládejme, že máte v sešitu mnoho obrázků a chcete je uložit do konkrétní složky najednou, obvykle můžete obrázky jeden po druhém zkopírovat a vložit ručně, abyste je uložili, ale jejich kopírování a vkládání je časově náročné. takto opakovaně. Zde vám představím několik tipů, jak tuto práci vyřešit.


Exportujte všechny obrázky najednou z aplikace Excel pomocí funkce Uložit jako

S vestavěným Excelem Uložit jako funkce, můžete uložit sešit jako Webová stránka uložit všechny obrázky včetně grafů, tvarů a dalších objektů do složky. Postupujte prosím následovně.

1. Otevřete sešit s obrázky, které chcete uložit. Klikněte Soubor > Uložit jako > Procházet.

2. V Uložit jako dialogové okno, musíte:

2.1) Vyberte složku pro uložení exportovaných obrázků;
2.2) Vyberte Webová stránka z rozevíracího seznamu Uložit jako typ;
2.3) Klikněte na Uložit .

3. Ve vyskakovacím okně Microsoft Excel dialogové okno, klepněte na tlačítko Ano .

4. Otevřete složku, kde jsou uloženy exportované soubory, a uvidíte složku a soubor ve formátu HTML uvedený uvnitř. Všechny obrázky v sešitu včetně grafů, tvarů nebo objektů jsou uloženy v této složce.

5. Obrázky, které potřebujete, můžete ponechat ve složce a smazat ostatní, které nepotřebujete


Snadno exportujte všechny obrázky najednou z Excelu pomocí úžasného nástroje

Výše uvedená metoda extrahuje všechny objekty ze sešitu, možná některé z nich nepotřebujete. Pokud máte Kutools pro Excel nainstalován v aplikaci Excel, jeho Exportovat grafiku Tato funkce vám může pomoci uložit pouze obrázky, které potřebujete.

Po instalaci Kutools pro Excel, postupujte následovně:

1. cvaknutí Kutools Plus > Import Export > Exportovat grafiku:

2. V Exportovat grafiku V dialogovém okně proveďte následující konfiguraci:

2.1) Vyberte Obrázky z Typ nemovitosti rozbalovací seznam;
Tip: Ve výchozím nastavení jsou uvedeny všechny grafiky včetně grafů, obrázků a obrazců v aktuálním sešitu.
2.2) V Uložit adresář , klikněte na tlačítko pro výběr složky pro uložení exportovaných obrázků;
2.3) V Formát exportu v rozevíracím seznamu vyberte typ obrázku, jako který chcete exportovat;
2.4) Klepněte na tlačítko OK.

3. Poté se objeví dialogové okno, které vám řekne, kolik obrázků bylo úspěšně exportováno, klepněte na OK .

Nyní můžete přejít do cílové složky a zkontrolovat exportované obrázky.

Prosím klikněte Exportovat grafiku dozvědět se více o této funkci.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.


Exportujte obrázky a přejmenujte je pomocí hodnot sousedních buněk

Jak je znázorněno na obrázku níže, jsou zde dva sloupce, jeden obsahuje seznam názvů ovoce a druhý obsahuje odpovídající obrázky ovoce. Chcete-li tyto obrázky exportovat a automaticky je pojmenovat odpovídajícími názvy ovoce, můžete vyzkoušet kód VBA v této části.

1. V listu, do kterého chcete exportovat obrázky, stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. A pak zkopírujte následující VBA do okna modulu.

Kód VBA: Exportujte obrázky ve sloupci a automaticky je pojmenujte

Sub ExportImages_ExtendOffice()
'Updated by Extendoffice 20220308
    Dim xStrPath As String
    Dim xStrImgName As String
    Dim xImg As Shape
    Dim xObjChar As ChartObject
    Dim xFD As FileDialog
    Set xFD = Application.FileDialog(msoFileDialogFolderPicker)
    xFD.Title = "Please select a folder to save the pictures" & " - ExtendOffice"
    If xFD.Show = -1 Then
       xStrPath = xFD.SelectedItems.Item(1) & "\"
    Else
        Exit Sub
    End If
    
    On Error Resume Next
    For Each xImg In ActiveSheet.Shapes
        If xImg.TopLeftCell.Column = 2 Then
        xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value
        If xStrImgName <> "" Then
            xImg.Select
            
            Selection.Copy
            Set xObjChar = ActiveSheet.ChartObjects.Add(0, 0, xImg.Width, xImg.Height)
            With xObjChar
                .Border.LineStyle = xlLineStyleNone
                .Activate
                ActiveChart.Paste
                .Chart.Export xStrPath & xStrImgName & ".png"
                .Delete
            End With
        End If
        End If
    Next
End Sub

Poznámky:

1) Číslo 2 v řadě"Pokud xImg.TopLeftCell.Column = 2 Pak” představuje číslo sloupce, ze kterého chcete exportovat obrázky;
2) Číslo -1 v řadě"xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value” znamená, že obrázky pojmenujete hodnotami sousedních levých buněk.

3. zmáčkni F5 klíč ke spuštění kódu. V otevíracím okně vyberte složku, do které chcete obrázky uložit, a poté klikněte OK.

Poté jsou exportovány všechny obrázky v určeném sloupci a automaticky pojmenovány podle hodnot sousedních buněk, jak jste zadali.


Související článek:

Jak exportovat grafy do grafiky v aplikaci Excel?


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (9)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
opravdu užitečné.. :D díky za taková řešení.
Tento komentář byl moderátorem webu minimalizován
Funkce Uložit jako HTM je skvělá. Jedna otázka, duplikovalo to všechny moje obrazové soubory. Máte představu, proč by se to stalo?
Tento komentář byl moderátorem webu minimalizován
Díky opravdu užitečné.
Tento komentář byl moderátorem webu minimalizován
díky moc moc mi to pomohlo
Tento komentář byl moderátorem webu minimalizován
To je skvělé, pokud bych chtěl uchopit barvu pozadí buňky (místo obrázku) a uložit ji jako obrázek pojmenovaný se sousední buňkou, jak by to byla snadná změna kódu?
Tento komentář byl moderátorem webu minimalizován
Ahoj Tome, myslíš uložení barvy pozadí buňky jako obrázku a pojmenování s hodnotou sousední buňky? S tím ti bohužel nepomůžu.
Tento komentář byl moderátorem webu minimalizován
Bonjour le code VBA m'enregistre des images blanches is not comprends pas pourquoi. quelqu'un une řešení?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Sophie,
Kód v tomto článku může dobře fungovat v mém Excelu, mohl byste sem nahrát svůj soubor Excel, pokud vám to nevadí? Můžeme vám tedy pomoci problém zkontrolovat.
Nebo můžete svůj problém popsat jasněji a podrobněji.
Děkuji!
Tento komentář byl moderátorem webu minimalizován
Τέλειο εργαλείο! Όμως το μέγεθος-ανάλυση της εικόνας μικραίνει . Υπάρχει τρόπος να διατηρηθεί η αρχική ανάλυση ?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL