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

Sut i allforio pob delwedd ar unwaith o Excel?

Gan dybio bod gennych lawer o luniau yn eich llyfr gwaith a'ch bod am eu cadw i ffolder penodol ar y tro, fel arfer gallwch gopïo a gludo'r lluniau fesul un â llaw i'w cadw, ond mae'n cymryd llawer o amser i'w copïo a'u gludo dro ar ôl tro fel hyn. Yma, byddaf yn cyflwyno rhai awgrymiadau i chi ar gyfer datrys y swydd hon.


Allforiwch yr holl ddelweddau ar unwaith o Excel gyda swyddogaeth Save As

Gyda'r Excel wedi'i ymgorffori Save As swyddogaeth, gallwch arbed llyfr gwaith fel Web Page i gadw'r holl luniau gan gynnwys siartiau, siapiau a gwrthrychau eraill mewn ffolder. Gwnewch fel a ganlyn.

1. Agorwch y llyfr gwaith gyda'r lluniau rydych chi am eu cadw. Cliciwch ffeil > Save As > Porwch.

2. Yn y Save As blwch deialog, mae angen i chi:

2.1) Dewiswch ffolder i gadw'r delweddau a allforiwyd;
2.2) Dewiswch Web Page o'r gwymplen Cadw fel math;
2.3) Cliciwch y Save botwm.

3. Yn y popping up Microsoft Excel blwch deialog, cliciwch y Oes botwm.

4. Agorwch y ffolder lle mae'r ffeiliau wedi'u hallforio yn cael eu cadw a gallwch weld ffolder a ffeil fformat HTML a restrir y tu mewn. Mae'r holl luniau yn y llyfr gwaith gan gynnwys siartiau, siapiau neu wrthrychau yn cael eu cadw yn y ffolder hwn.

5. Gallwch gadw'r lluniau sydd eu hangen arnoch yn y ffolder a dileu eraill nad oes eu hangen arnoch


Allforio'n hawdd Pob Delwedd Ar Unwaith O Excel Gyda theclyn anhygoel

Bydd y dull uchod yn tynnu pob gwrthrych o'r llyfr gwaith, efallai, rhai ohonynt nad oes eu hangen arnoch chi. Os oes gennych chi Kutools ar gyfer Excel gosod yn Excel, ei Graffeg Allforio efallai y bydd nodwedd yn eich helpu i arbed y lluniau sydd eu hangen arnoch yn unig.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:

1. Cliciwch Kutools Byd Gwaith > Mewnforio ac Allforio > Graffeg Allforio:

2. Yn y Graffeg Allforio blwch deialog, ffurfweddwch fel a ganlyn:

2.1) Dewiswch lluniau oddi wrth y Mathau rhestr ostwng;
Awgrym: Yn ddiofyn, rhestrir yr holl graffeg gan gynnwys siartiau, lluniau a siapiau yn y llyfr gwaith cyfredol.
2.2) Yn y Cadw cyfeiriadur adran, cliciwch ar botwm i ddewis ffolder i arbed eich lluniau allforio;
2.3) Yn y Fformat allforio rhestr gwympo, dewiswch y math o ddelwedd rydych chi am ei hallforio fel;
2.4) Cliciwch OK.

3. Yna mae blwch deialog yn ymddangos i ddweud wrthych faint o luniau sydd wedi'u hallforio'n llwyddiannus, cliciwch ar y OK botwm.

Nawr gallwch chi fynd i'r ffolder cyrchfan a gwirio'r delweddau a allforiwyd.

Cliciwch Graffeg Allforio i wybod mwy am y nodwedd hon.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.


Allforio delweddau a'u hail-enwi gyda'r gwerthoedd celloedd cyfagos

Fel y dangosir yn y screenshot isod, mae dwy golofn, un yn cynnwys rhestr o enwau ffrwythau a'r llall yn cynnwys y lluniau cyfatebol o'r ffrwythau. I allforio'r delweddau hyn a'u henwi'n awtomatig gyda'r enwau ffrwythau cyfatebol, gallwch roi cynnig ar y cod VBA yn yr adran hon.

1. Yn y daflen waith lle rydych chi am allforio'r lluniau, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwl. Ac yna copïwch y VBA canlynol i ffenestr y Modiwl.

Cod VBA: Allforio lluniau mewn colofn a'u henwi'n awtomatig

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

Nodiadau:

1) Y rhif 2 yn y llinell “Os xImg.TopLeftCell.Column = 2 YnaMae ” yn cynrychioli rhif y golofn yr ydych am allforio'r lluniau ohoni;
2) Y rhif -1 yn y llinell “xStrImgName = xImg.TopLeftCell.Offset(0, -1).Gwerth” yn nodi y byddwch yn enwi'r lluniau gyda gwerthoedd y celloedd chwith cyfagos.

3. Gwasgwch y F5 allwedd i redeg y cod. Yn y ffenestr sy'n agor, dewiswch ffolder i arbed y lluniau ac yna cliciwch OK.

Yna mae'r holl luniau mewn colofn benodol yn cael eu hallforio a'u henwi'n awtomatig gyda'r gwerthoedd celloedd cyfagos fel y nodwyd gennych.


Erthygl gysylltiedig:

Sut i allforio siartiau i graffeg yn Excel?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ddefnyddiol iawn .. :D diolch am atebion o'r fath.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r nodwedd Save As HTM yn wych. Un cwestiwn, fe ddyblygodd fy holl ffeiliau delwedd. Unrhyw syniad pam y byddai hynny'n digwydd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn ddefnyddiol iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch yn fawr fe helpodd fi lawer
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn wych, pe bawn i eisiau cydio yn lliw cefndir cell (yn lle delwedd) a chadw hynny fel delwedd a enwir gyda'r gell gyfagos sut fyddai hynny'n newid hawdd i'r cod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Tom, Ydych chi'n golygu arbed lliw cefndir y gell fel delwedd a'i henwi gyda gwerth y gell gyfagos? Mae'n ddrwg gennym ni all eich helpu gyda hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bonjour le code VBA m'enregistre des images blanches je ne comprends pas pourquoi. quelqu'un ateb une ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Sophie,
Gall y cod yn yr erthygl hon weithio'n dda yn fy Excel, a allech chi uwchlwytho'ch ffeil Excel yma os nad oes ots gennych? Felly gallwn helpu i wirio'r broblem i chi.
Neu gallwch ddisgrifio'ch problem yn fwy clir a manwl.
Diolch yn fawr!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir