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

Cum să inserați mai multe imagini și să le redimensionați simultan în Excel?

Este ușor pentru noi să introducem o singură imagine în Excel, dar dacă trebuie să introduceți mai multe imagini simultan, astfel încât să puteți economisi mult timp, cum ați putea face?


Introduceți mai multe imagini și redimensionați-le în bloc prin funcția Inserare imagine

Putem insera mai multe imagini în bloc prin funcția (Inserare) imagine în Excel, apoi le putem redimensiona simultan. Vă rugăm să faceți următoarele:

1. În foaia de lucru, faceți clic pe Insera > Imagine.

2. În dialogul Inserare imagine, vă rugăm să deschideți folderul care conține imagini pe care le veți insera, selectați mai multe imagini după cum aveți nevoie și faceți clic pe Insera buton. Vedeți captura de ecran:
notițe: Deținere Ctrl tasta, puteți selecta mai multe imagini nonadiacente făcând clic pe ele una câte una; deținere Schimba , puteți selecta mai multe imagini adiacente făcând clic pe prima imagine și pe ultima.

Acum imaginile sunt inserate în bloc și stivuite în foaia de lucru.

3. Păstrați aceste imagini selectate și redimensionați-le în bloc introducând un număr nou în ambele Lăţime și Înălţime cutii în Mărimea grup pe Format filă. Vedeți captura de ecran:

Acum, toate imaginile inserate sunt schimbate simultan la aceeași dimensiune.

4. În prezent, trebuie să mutați manual fiecare imagine separat într-un loc potrivit.

notițe: Dacă există zeci de imagini stivuite, va fi destul de mult timp să le mutați manual în locuri potrivite.

Inserați în lot mai multe imagini care se potrivesc cu conținutul celulei în Excel

Potriviți imagini de import caracteristică Kutools pentru Excel, este un instrument fantastic care poate importa și insera mai multe imagini pe baza conținutului celulei și poate redimensiona cu ușurință imaginile importate la fel ca dimensiunea celulei sau la dimensiunea specificată.


potrivire anunț fotografii importate 01

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Ia-L Acum

Introduceți mai multe imagini și redimensionați-le în bloc cu OneNote

Pentru a evita mutarea stivuirii imaginilor una câte una, această metodă introduce un alt truc pentru a insera mai multe imagini cu ajutorul OneNote. Vă rugăm să faceți următoarele:

1. Lansați OneNote și creați o pagină nouă. Și apoi faceți clic pe Insera > Imagine.

2. În dialogul Inserare imagine, vă rugăm să deschideți folderul care conține imagini pe care le veți insera, selectați mai multe imagini după cum aveți nevoie și faceți clic pe Insera buton. Vedeți captura de ecran:
notițe: Deținere Ctrl tasta, puteți selecta mai multe imagini nonadiacente făcând clic pe ele una câte una; deținere Schimba , puteți selecta mai multe imagini adiacente făcând clic pe prima imagine și pe ultima.

doc introduceți mai multe imagini OneNote 032

3. presa Ctrl + A pentru a selecta toate imaginile inserate în OneNote, apoi apăsați Ctrl + C tastele pentru a le copia.

4. Mergeți foaia de lucru în Excel și apăsați Ctrl + V tastele pentru a lipi imaginile în foaia de lucru. Acum toate imaginile sunt lipite vertical așa cum este afișat ecranul din stânga.

5. Selectați oricare dintre imagini și apăsați Ctrl + A tastele pentru a le selecta pe toate. Apoi redimensionați imaginile în bloc introducând numere noi în ambele Lăţime și Înălţime cutii în Mărimea grup pe Format filă. Vedeți captura de ecran:

Acum, toate imaginile specificate sunt inserate în Excel și redimensionate la aceeași dimensiune în bloc.


Introduceți mai multe imagini în Excel cu cod VBA

Cu următorul cod VBA, puteți insera mai multe imagini în fișier Excel celulă cu celulă.

1. Selectați prima celulă a intervalului de destinație pe care doriți să o inserați.

2. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

3. Clic Insera > Moduleși lipiți următoarea macro în fișierul Fereastra modulului.

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. Apoi apăsați pe F5 tasta pentru a rula acest cod.

5. În dialogul Deschidere, deschideți folderul care conține imaginile pe care doriți să le inserați, selectați mai multe imagini pe care le veți insera și faceți clic pe Înscrieri în buton. Și toate imaginile selectate au fost importate în selecția dvs. pe baza dimensiunii celulei. Vedeți captura de ecran:


Introduceți mai multe imagini și reglați-le automat cu Kutools pentru Excel

Kutools pentru Excel'S Importați imagini utilitarul vă poate ajuta să inserați rapid mai multe imagini în Excel pe baza dimensiunii celulei sau a dimensiunii imaginii. Puteți specifica înălțimea și lățimea imaginilor după cum aveți nevoie.

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Ia-L Acum

1. Clic Kutools Plus > Import Export > Importați imagini, vezi captura de ecran:

2. În Importați imagini caseta de dialog, procedați după cum urmează:
(1) Specificați ordinea de afișare a imaginilor din Comanda de import lista derulantă, puteți alege Umpleți vertical celulă după celulă or Umpleți orizontal celulă după celulă.
(2) Faceți clic pe Adăuga butonul pentru a selecta fișierele de imagine sau folderul pentru a adăuga imaginile în lista de imagini. Și toate imaginile selectate vor fi listate în caseta listă.
(3) Faceți clic pe Dimensiunea importului buton;

3. Acum în Importați dimensiunea imaginii , puteți alege dimensiunea imaginii care se potrivește nevoilor dvs. Vedeți captura de ecran:

4. După specificarea dimensiunii imaginii, faceți clic pe OK pentru a închide acest dialog și a reveni la Importați imagini dialog, faceți clic pe Import pentru a importa imaginile.

5. În noua casetă de dialog Importați imagini, vă rugăm să alegeți prima celulă din intervalul de destinație unde veți insera imagini și faceți clic pe OK butonul.

În prezent, toate imaginile selectate au fost inserate în celulele dvs. din celula activă pe verticală sau orizontală. Vedeți captura de ecran din dreapta:

Importați imagini caracteristica Kutools pentru Excel este concepută pentru a insera un lot de imagini simultan cu dimensiunea celulei potrivite, dimensiunea specificată sau dimensiunile proprii ale imaginilor în Excel. Aveți o încercare gratuită!


Introduceți mai multe imagini care se potrivesc cu numele lor cu Kutools pentru Excel

Kutools pentru Excel acceptă, de asemenea, un dramatism Potriviți imagini de import caracteristică pentru a potrivi imagini și conținutul celulei și a insera imagini potrivite numai în bloc în Excel.

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Ia-L Acum

1. Selectați celulele cu numele imaginii pe care doriți să le inserați imaginile potrivite și faceți clic pe Kutools Plus > Import Export > Potriviți imagini de import. vezi captura de ecran:

2. În caseta de dialog Mărire imagini importate, faceți următoarele:
(1) Specificați ordinea de afișare a imaginilor din Comanda de import lista verticală;
(2) Faceți clic pe Adăuga pentru a adăuga imaginile în caseta de listă a imaginilor. Pentru informațiile dvs., vor fi listate numai imaginile potrivite.
(3) Apoi faceți clic pe Dimensiunea importului butonul.

3. Acum în Importați dimensiunea imaginii caseta de dialog, puteți alege dimensiunea imaginii care se potrivește nevoilor dvs. și faceți clic pe butonul Ok buton. Vedeți captura de ecran:

4. Acum te întorci la Importați imagini dialog, faceți clic pe Import pentru a importa imaginile.

5. În fereastra pop-up Match Import Pictures, vă rugăm să specificați prima celulă din intervalul de destinație în care veți insera imagini și faceți clic pe OK buton. Vedeți captura de ecran:

Până în prezent, toate imaginile sunt inserate în celule pe baza numelor lor relative. Vedeți captura de ecran din dreapta:

Potriviți imagini de import caracteristica Kutools pentru Excel poate ajuta utilizatorii Excel să filtreze rapid imaginile pe baza valorilor celulei și apoi să introducă aceste imagini în bloc. În plus, aceste imagini potrivite pot fi redimensionate automat la dimensiunea specificată sau la dimensiunea celulei. Aveți o încercare gratuită!


Demo: introduceți mai multe imagini și redimensionați-le simultan în Excel

Kutools pentru Excel include mai mult de 300 de instrumente la îndemână pentru Excel, care pot fi încercate gratuit fără limitare 30 zile. Încercare gratuită acum!      Cumpara acum!


Articole pe aceeași temă


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (47)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Instrucțiunile cu titlul: Inserarea mai multor imagini în Excel cu cod VBA este pur și simplu extraordinar de rapidă și eficientă !!! aceasta este o alternativă bună pentru a cumpăra și instala pluginuri. Acesta este primul meu comentariu online!! Apreciere !
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, pot folosi modulul InsertPictures și funcționează corect până la jpg. Totuși, nu vrea să funcționeze pentru PNG. Puteti va rog sa sfatuiti? Cu respect, Lawrence
Acest comentariu a fost redus la minimum de moderatorul de pe site
În primul subiect „Inserați mai multe imagini în Excel cu cod VBA”, cum inserați o imagine în două celule. de exemplu, prima imagine va fi inserată în celula A1 și A2, a doua imagine va fi inserată în celula A3 și A4 și așa mai departe.
Acest comentariu a fost redus la minimum de moderatorul de pe site
suport bun pentru Excel ..... vă ajutați cu adevărat la economisirea de timp. Mulțumiri
Acest comentariu a fost redus la minimum de moderatorul de pe site
Super post! Dar am alte moduri de a face același lucru..... ===================================== ============ Sub ipic() Dim i As Integer For i = 2 To 10 Cells(i, 1).Select Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures. Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Selectați cu selecție .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# End With Next Range ("a1"). Selectați End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există o versiune de Kuttools pentru Mac?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil să modificați acel cod vba pentru a insera 4 imagini într-un patern asemănător grilei ca acesta: pic1 în A1, pic2 în A2, pic3 în B1 și pic4 în B2? Tancuri!
Acest comentariu a fost redus la minimum de moderatorul de pe site
nu contează că am găsit cum să o fac :)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, ați putea vă rog să distribuiți codul modificat?
Acest comentariu a fost redus la minimum de moderatorul de pe site
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.Column IfCell IsArray(PicList) Apoi xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(PicList), msoCTruealse(PicList), msoCTFalse , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mă puteți ajuta vă rog să modific codul pentru a insera coloana și rândul îmbinate. 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.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell = Application. Column If IsArray(PicList ) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes.Pic.Add(ltureLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
selectați celulele și redimensionați-le după lățime și înălțime, în funcție de nevoile dvs.. dacă aveți zece poze, selectați zece celule sau mai multe, selectați mai multe..!! apoi apăsați Alt+F11, apoi faceți clic pe INSERT, apoi faceți clic pe MODUL APOI INSERȚI URMĂTORUL COD așa cum este.. Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Reluare Următorul 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) Set xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Sub AFTER THE End AFTER DE SUS COD APĂSAȚI F5 .. APOI SELECTAȚI FIȘIERELE DE PE CALCULATOR UNDE SUNT EI. PÂNĂ NEVOIA VOASTRA. Atunci, DACĂ NU AȚI SALVAT REGISTRUL DE LUCRU, VA CEREA SĂ-L SALVEZ. DACA L-AI SALVAT DEJA. Atunci slujba ta este speranta ca ACEST AJUTA.. Ali..!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc mult, funcționează
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, EXcel Masters, am 2 foi Excel. Unul cu mai mult de o sută de imagini și descrierea imaginii în celula următoare. Cealaltă foaie după selecție a plecat probabil cu 40 de descriere a acesteia. Cum pot transfera imaginile pe această foaie conform selecției mele. Multumesc al
Acest comentariu a fost redus la minimum de moderatorul de pe site
sau folosești direct image-xls . cu acest supliment Excel, puteți insera un număr nelimitat de imagini în celula Excel sau ca comentariu. de asemenea, vă redimensionează imaginile. și este posibil să comandați și să filtrați foaia dvs. Excel, inclusiv Imaginile!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sunt utilizator Mac și odată ce am copiat codul în noul modul și l-am executat, nu se întâmplă nimic. Trebuie să fac ceva în mac pentru a rula codul VBA? Mulțumiri
Acest comentariu a fost redus la minimum de moderatorul de pe site
[quote]sau utilizați direct image-xls . cu acest supliment Excel, puteți insera un număr nelimitat de imagini în celula Excel sau ca comentariu. de asemenea, vă redimensionează imaginile. și este posibil să comandați și să filtrați foaia dvs. Excel, inclusiv Imaginile!De Armin[/quote] [quote]Instrucțiunile cu titlul: Inserarea mai multor imagini în Excel cu cod VBA este pur și simplu extraordinar de rapidă și eficientă !!! aceasta este o alternativă bună pentru a cumpăra și instala pluginuri. Acesta este primul meu comentariu online!! Apreciere !De Rahul Gupta[/quote] Am încercat acest lucru și pare să funcționeze bine - dar nu puteți comanda sau filtra lista Excel, inclusiv fotografiile. de asemenea, pozele nu sunt proporționale. așa că am cumpărat image-xls - costă puțin, dar face tot ce îmi trebuie
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna! Vreun motiv pentru care „Sub InsertPictures()” nu ar funcționa în Excel 2003? Am adăugat deja referința la Microsoft.Scripting.Runtime Mulțumesc anticipat Gilberto
Acest comentariu a fost redus la minimum de moderatorul de pe site
imi este de mare ajutor. Este o treabă atât de frumoasă....... Mulțumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, am încercat codul de pe foaia de calcul și a funcționat perfect. Pana incerc sa fac un filtru. Găsiți că ultima imagine va fi întotdeauna afișată pe rezultatul filtrului. cineva poate ajuta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Folosind programul VBA de mai jos, nu se poate introduce imaginea în celula îmbinată, Sub InsertPictures() „Actualizare 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Reluare Următorul PicList = Application.Get OpenFilename(Pi cFormat , MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList ) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex ) Set , xColShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub Vă rugăm să mă sfătuiți să modific VBA .
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hei tuturor, e grozav! Vă urmăresc tutorialele de ceva vreme. Ceea ce speram că mă puteți ajuta este, cum pot schimba acest lucru de la lipirea imaginilor pe o coloană la pe un rând? Și cum pot adăuga „Numele complet al fișierului (adică example_image.jpg)” la rândul de deasupra acestuia. Rândul „A” : „Nume fișier.jpg” Rândul „B” : „Miniatura imaginii” Mulțumesc!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hei, am inserat imaginile folosind propriul meu cod VBE. Și acum am încercat să-l împărtășesc și celorlalți, din păcate ei nu pot vedea pozele..... Aș fi recunoscător dacă cineva ar putea să-mi spună ce îmi lipsește. Mulțumiri
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest cod APROAPE funcționează pentru nevoile mele. Am 200 de imagini, fiecare imagine trebuie să treacă pe propria foaie. Cum fac asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum pot modifica următorul cod, astfel încât imaginile să fie populate într-un interval selectat de celule pe mai multe coloane și rânduri, mai degrabă decât în ​​celule consecutive în rânduri succesive din aceeași coloană? 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.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell = Application. Column If IsArray(PicList ) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes.Pic.Add(ltureLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Alguem conseguiu o codigo para a pergunta dele? estou precisando também!
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL