Skip i'r prif gynnwys

Sut i fewnosod lluniau lluosog a'u hailfeintio ar unwaith yn Excel?

Mae'n hawdd i ni fewnosod un llun yn Excel, ond os oes angen i chi fewnosod sawl llun ar unwaith fel y gall hynny arbed llawer o amser, sut allech chi wneud?


Mewnosodwch luniau lluosog a'u hailfeintio mewn swmp yn ôl nodwedd Mewnosod Llun

Gallwn fewnosod lluniau lluosog mewn swmp gan y nodwedd Lluniau (Mewnosod) yn Excel, ac yna eu hailfeintio ar yr un pryd. Gwnewch fel a ganlyn:

1. Yn y daflen waith, cliciwch Mewnosod > Llun.

2. Yn y dialog Mewnosod Lluniau, agorwch y ffolder sy'n cynnwys lluniau y byddwch chi'n eu mewnosod, dewiswch luniau lluosog yn ôl yr angen, a chliciwch ar y Mewnosod botwm. Gweler y screenshot:
Nodyn: Dal Ctrl allwedd, gallwch ddewis nifer o luniau nad ydynt yn gyfagos trwy eu clicio fesul un; daliad Symud allwedd, gallwch ddewis sawl llun cyfagos gyda chlicio'r llun cyntaf a'r un olaf.

Nawr mae lluniau'n cael eu mewnosod mewn swmp a'u pentyrru yn y daflen waith.

3. Cadwch y lluniau hyn wedi'u dewis, a'u hailfeintio mewn swmp trwy roi rhif newydd i'r ddau Lled ac uchder blychau yn y Maint grŵp ar y fformat tab. Gweler y screenshot:

Nawr mae'r holl luniau sydd wedi'u mewnosod yn cael eu newid i'r un maint ar yr un pryd.

4. Ar hyn o bryd mae angen i chi symud pob llun â llaw ar wahân i le ffit.

Nodyn: Os oes dwsinau o luniau yn pentyrru, bydd yn cymryd llawer o amser eu symud â llaw i ffitio lleoedd.

Swp mewnosodwch luniau lluosog sy'n cyd-fynd â chynnwys celloedd yn Excel

Mae adroddiadau Cydweddu Lluniau Mewnforio nodwedd o Kutools ar gyfer Excel, yn offeryn gwych sy'n gallu mewnforio swp a mewnosod lluniau lluosog yn seiliedig ar gynnwys celloedd, a newid maint lluniau a fewnforiwyd yr un fath â maint celloedd neu i'r maint penodedig yn hawdd.


paru lluniau wedi'u mewnforio 01

Kutools ar gyfer Excel - Supercharge Excel gyda dros 300 o offer hanfodol. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod angen cerdyn credyd! Get It Now

Mewnosodwch luniau lluosog a'u hailfeintio mewn swmp gydag OneNote

Er mwyn osgoi symud pentyrru lluniau fesul un, mae'r dull hwn yn cyflwyno tric arall i fewnosod sawl llun gyda chymorth OneNote. Gwnewch fel a ganlyn:

1. Lansio OneNote, a chreu tudalen newydd. Ac yna cliciwch Mewnosod > Llun.

2. Yn y dialog Mewnosod Lluniau, agorwch y ffolder sy'n cynnwys lluniau y byddwch chi'n eu mewnosod, dewiswch luniau lluosog yn ôl yr angen, a chliciwch ar y Mewnosod botwm. Gweler y screenshot:
Nodyn: Dal Ctrl allwedd, gallwch ddewis nifer o luniau nad ydynt yn gyfagos trwy eu clicio fesul un; daliad Symud allwedd, gallwch ddewis sawl llun cyfagos gyda chlicio'r llun cyntaf a'r un olaf.

doc mewnosodwch luniau lluosog OneNote 032

3. Gwasgwch Ctrl + A allweddi i ddewis yr holl luniau a fewnosodwyd yn yr OneNote, ac yna pwyswch Ctrl + C allweddi i'w copïo.

4. Ewch i'r daflen waith yn Excel, a gwasgwch Ctrl + V allweddi i gludo'r lluniau yn y daflen waith. Nawr mae'r holl luniau wedi'u pastio'n fertigol fel y dangosir y llun chwith.

5. Dewiswch unrhyw un o'r lluniau, a gwasgwch Ctrl + A allweddi i ddewis pob un ohonynt. Yna newid maint y lluniau mewn swmp trwy roi rhifau newydd i'r ddau Lled ac uchder blychau yn y Maint grŵp ar y fformat tab. Gweler y screenshot:

Nawr mae'r holl luniau penodedig yn cael eu mewnosod yn Excel a'u newid maint i'r un maint mewn swmp.


Mewnosodwch luniau lluosog yn Excel gyda chod VBA

Gyda'r cod VBA canlynol, gallwch fewnosod lluniau lluosog i mewn i ffeil ffeil Excel fesul cell.

1. Dewiswch y gell gyntaf o ystod cyrchfan rydych chi am fewnosod lluniau.

2. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr Modiwl.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Yna pwyswch y F5 allwedd i redeg y cod hwn.

5. Yn y dialog Agored, agorwch y ffolder sy'n cynnwys y lluniau rydych chi am eu mewnosod, dewiswch sawl llun y byddwch chi'n eu mewnosod, a chliciwch ar y agored botwm. Ac mae'r holl luniau a ddewiswyd wedi'u mewnforio i'ch dewis yn seiliedig ar faint y gell. Gweler y screenshot:


Mewnosodwch luniau lluosog a'u haddasu'n awtomatig gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel'S Mewnforio Lluniau gall cyfleustodau eich helpu i fewnosod sawl llun yn Excel yn gyflym yn seiliedig ar faint y gell neu faint y llun. Gallwch chi nodi uchder a lled y lluniau yn ôl yr angen hefyd.

Kutools ar gyfer Excel - Supercharge Excel gyda dros 300 o offer hanfodol. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod angen cerdyn credyd! Get It Now

1. Cliciwch Kutools Byd Gwaith > Mewnforio / Allforio > Mewnforio Lluniau, gweler y screenshot:

2. Yn y Mewnforio Lluniau blwch deialog, gwnewch fel a ganlyn:
(1) Nodwch drefn arddangos lluniau o'r Gorchymyn mewnforio rhestr ostwng, gallwch ddewis Llenwch gell yn fertigol ar ôl cell or Llenwch gell yn llorweddol ar ôl y gell.
(2) Cliciwch Ychwanegu botwm i ddewis y ffeiliau delwedd neu'r ffolder i ychwanegu'r lluniau i'r rhestr Lluniau. A bydd yr holl luniau a ddewiswyd gennych yn cael eu rhestru yn y blwch rhestr.
(3) Cliciwch y Maint mewnforio botwm;

3. Nawr yn y Mewnforio Maint Llun deialog, gallwch ddewis maint y llun sy'n cyfateb i'ch angen. Gweler y screenshot:

4. Ar ôl nodi maint y llun, cliciwch OK i gau'r ymgom hon, ac yn ôl i'r Mewnforio Lluniau deialog, cliciwch mewnforio botwm i fewnforio'r delweddau.

5. Yn y blwch deialog Mewnforio Lluniau newydd, dewiswch y gell gyntaf o ystod cyrchfan y byddwch yn mewnosod lluniau, a chliciwch ar y OK botwm.

Ar hyn o bryd, mae'r holl luniau a ddewiswyd gennych wedi'u mewnosod yn eich celloedd o'r gell weithredol yn fertigol neu'n llorweddol. Gweler y llun ar y dde:

Mae adroddiadau Mewnforio Lluniau nodwedd o Kutools ar gyfer Excel wedi'i gynllunio i fewnosod swp o luniau ar yr un pryd â maint celloedd cyfatebol, maint penodedig, neu feintiau lluniau eu hunain yn Excel. Cael Treial Am Ddim!


Mewnosodwch luniau lluosog sy'n cyfateb â'u henwau gyda Kutools ar gyfer Excel

Mae Kutools ar gyfer Excel hefyd yn cefnogi dramatig Cydweddu Lluniau Mewnforio nodwedd i gyd-fynd â lluniau a chynnwys celloedd a mewnosod lluniau wedi'u paru mewn swmp yn Excel yn unig.

Kutools ar gyfer Excel - Supercharge Excel gyda dros 300 o offer hanfodol. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod angen cerdyn credyd! Get It Now

1. Dewiswch eich celloedd enw llun rydych chi am fewnosod eu lluniau paru, a chlicio Kutools Byd Gwaith > Mewnforio / Allforio > Cydweddu Lluniau Mewnforio. gweler y screenshot:

2. Yn y blwch deialog Match Import Pictures sydd wedi'i popio allan, gwnewch fel a ganlyn:
(1) Nodwch drefn arddangos lluniau o'r Gorchymyn mewnforio rhestr ostwng;
(2) Cliciwch Ychwanegu botwm i ychwanegu'r lluniau i'r blwch rhestr lluniau. Er gwybodaeth, dim ond lluniau wedi'u paru a restrir.
(3) Yna cliciwch Maint Mewnforio botwm.

3. Nawr yn y Mewnforio Maint Llun deialog, gallwch ddewis maint y llun sy'n cyfateb i'ch angen, a chliciwch ar y Ok botwm. Gweler y screenshot:

4. Nawr dych chi'n dychwelyd i'r Mewnforio Lluniau deialog, cliciwch mewnforio botwm i fewnforio'r delweddau.

5. Yn y dialog Match Import Pictures, nodwch y gell gyntaf o ystod cyrchfan y byddwch yn mewnosod lluniau, a chliciwch ar y OK botwm. Gweler y screenshot:

Hyd yn hyn, mae'r holl luniau wedi'u mewnosod yn y celloedd ar sail eu henwau cymharol. Gweler y llun ar y dde:

Mae adroddiadau Cydweddu Lluniau Mewnforio nodwedd o Kutools ar gyfer Excel gall helpu defnyddwyr Excel yn gyflym hidlo lluniau yn seiliedig ar werthoedd celloedd ac yna mewnosodwch y lluniau hyn mewn swmp. Yn ogystal, gellir newid maint y lluniau cyfatebol hyn i'r maint penodol neu'r maint celloedd yn awtomatig. Cael Treial Am Ddim!


Demo: Mewnosodwch sawl llun a'u hailfeintio ar unwaith yn Excel

Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel, am ddim i geisio heb gyfyngiad mewn 30 diwrnod. Treial Am Ddim Nawr!      Prynu Nawr!


Erthyglau perthnasol

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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...

Disgrifiad


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!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello community,

Thank you very much - this is a great tool!
But for my request, I should keep the sizes of the images, which are different. Is there any way to keep the format of the images but keep the functions with this code?

Many thanks in advance.
Elias
This comment was minimized by the moderator on the site
Respected sir, i want to One image paste on specific cell more than one in a time.
This comment was minimized by the moderator on the site
Hello, Sarfraz

If you want to insert one image into multiple cells, you just need to insert one image and resize it, and then copy and paste it to the other cells as you need.

Thank you!
This comment was minimized by the moderator on the site
mình cảm ơn vì bài viết. mình có làm danh sách sản phẩm hàng hóa mất rất nhiều thời gian nhưng chợt thấy chenanhexcel.com có bán add-in thì công việc của mình dễ dàng hơn nhiều.
This comment was minimized by the moderator on the site
Hi, i have 10 images i want to insert all 10 inside ONE CELL in excel. is this possible and if so pls help me out with some code pls...
This comment was minimized by the moderator on the site
Hi Vind,
First, adjust the cell and make it big enough to contain the 10 images.
Then Click Insert > Picture to open the Insert Picture dialog. In the dialog, select the 10 images together (if they are in the same folder), and click the OK button.
Now all images are inserted. If necessary, resize them simultaneously in the Size group on the Picture Format tab.
These images are inserted in the diagonal line of the cell as attached picture, and you need to adjust their positions manually.
This comment was minimized by the moderator on the site
I am using the following code, which came from Funzone, to add my photos but i need to be able to skip a column, leaving a blank column between photos, can someone help?

Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 2
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I was finally able to figure it out on my own.

The code below will insert 3 pictures horizontally in the columns then move down a row and insert 3 more horizontally it will repeat this process until it runs out of the selected pictures.



Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 1
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?


If you know how to do this please post the code. Thank you In advance!

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array.
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array
This comment was minimized by the moderator on the site
les agradezco mucho realmente ayudan muchisimo con el trabajo y el tiempo. Me sirvio perfecto para un inventario con fotos.
reitero mi agradecimiento
This comment was minimized by the moderator on the site
Tried this code and in all honesty is amazing and fast, however is there any chance of amending this to make it resize the pictures to a custom size.
I cannot seem to get my head around it.
Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations