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:
3. Yn y popping up Microsoft Excel blwch deialog, cliciwch y Ydy 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:
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:
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?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!