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

Kako v Excel vstaviti več slik in jih hkrati spremeniti?

V Excel lahko enostavno vstavimo eno sliko, če pa morate hkrati vstaviti več slik, da lahko prihranite veliko časa, kako bi to lahko storili?


Vstavite več slik in jih v velikem obsegu spremenite s funkcijo Vstavi sliko

S funkcijo (Vstavi) slike v Excelu lahko v velikem obsegu vstavimo več slik, nato pa jih hkrati spremenimo. Naredite naslednje:

1. Na delovnem listu kliknite Vstavi > Slika.

2. V pogovornem oknu Vstavi sliko odprite mapo s slikami, ki jih boste vstavili, izberite več slik, kot jih potrebujete, in kliknite Vstavi . Oglejte si posnetek zaslona:
Opombe: Držati Ctrl tipko, lahko izberete več sosednjih slik, tako da jih kliknete eno za drugo; držati Shift tipko, lahko izberete več sosednjih slik s klikom na prvo in zadnjo sliko.

Zdaj se slike vstavijo v velikem obsegu in zložijo na delovni list.

3. Te slike naj bodo izbrane in jih veliko spremenite tako, da v obe vnesete novo številko Širina in Višina polja v Velikosti skupina na oblikovana zavihek. Oglejte si posnetek zaslona:

Zdaj se vse vstavljene slike hkrati spremenijo v isto velikost hkrati.

4. Trenutno morate vsako sliko ločeno premakniti na primerno mesto.

Opombe: Če je slik na desetine, bo trajanje ročnega premikanja na ustrezna mesta precej zamudno.

Paket vstavi več slik, ki se ujemajo z vsebino celic v Excelu

O Ujemi uvozne slike Funkcija Kutools za Excel je fantastično orodje, ki lahko serijsko uvozi in vstavi več slik na podlagi vsebine celice ter uvožene slike enostavno spremeni v velikost celice ali na določeno velikost.


ujemanje slik uvoženih slik 01

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! Get It Now

Vstavite več slik in jih v velikem obsegu spremenite z OneNote

Da bi se izognili premikanju zloženih slik eno za drugo, ta metoda uvaja še en trik za vstavljanje več slik s pomočjo OneNote. Naredite naslednje:

1. Zaženite OneNote in ustvarite novo stran. In nato kliknite Vstavi > Slika.

2. V pogovornem oknu Vstavi sliko odprite mapo s slikami, ki jih boste vstavili, izberite več slik, kot jih potrebujete, in kliknite Vstavi . Oglejte si posnetek zaslona:
Opombe: Držati Ctrl tipko, lahko izberete več sosednjih slik, tako da jih kliknete eno za drugo; držati Shift tipko, lahko izberete več sosednjih slik s klikom na prvo in zadnjo sliko.

doc vstavi več slik OneNote 032

3. Pritisnite Ctrl + A tipke izberite vse vstavljene slike v programu OneNote in pritisnite Ctrl + C tipke za njihovo kopiranje.

4. Odprite delovni list v Excelu in pritisnite Ctrl + V tipke za lepljenje slik na delovni list. Zdaj so vse slike prilepljene navpično, kot je prikazano na levi sliki zaslona.

5. Izberite katero koli sliko in pritisnite Ctrl + A tipke, da jih izberete. Nato velikost slik spremenite v velikem obsegu tako, da v obe vnesete nove številke Širina in Višina polja v Velikosti skupina na oblikovana zavihek. Oglejte si posnetek zaslona:

Zdaj so vse določene slike vstavljene v Excel in v velikem obsegu spremenjene na velikost.


V Excel vstavite več slik s kodo VBA

Z naslednjo kodo VBA lahko v Excel datoteko celico po celico vstavite več slik.

1. Izberite prvo celico ciljnega obsega, v katero želite vstaviti slike.

2. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Okno modula.

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. Nato pritisnite F5 tipko za zagon te kode.

5. V pogovornem oknu Odpri odprite mapo s slikami, ki jih želite vstaviti, izberite več slik, ki jih boste vstavili, in kliknite Odprto . Vse izbrane slike so bile uvožene v vaš izbor glede na velikost celice. Oglejte si posnetek zaslona:


Vstavite več slik in jih samodejno prilagodite s programom Kutools za Excel

Kutools za ExcelJe Uvozi slike pripomoček vam lahko pomaga hitro vstaviti več slik v Excel glede na velikost celice ali velikost slike. Po potrebi lahko določite tudi višino in širino slik.

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! Get It Now

1. Kliknite Kutools Plus > Uvozno-izvoznih > Uvozi slike, glej posnetek zaslona:

2. v Uvozi slike pogovorno okno, naredite naslednje:
(1) Določite vrstni red prikaza slik iz Uvozno naročilo spustnega seznama, lahko izberete Napolnite navpično celico za celico or Polni vodoravno celico za celico.
(2) Kliknite Dodaj gumb, da izberete slikovne datoteke ali mapo, da jih dodate na seznam slik. Vse izbrane slike bodo navedene v seznamskem polju.
(3) Kliknite Velikost uvoza gumb;

3. Zdaj v Uvozi velikost slike lahko izberete velikost slike, ki ustreza vašim potrebam. Oglejte si posnetek zaslona:

4. Po določitvi velikosti slike kliknite OK , da zaprete to pogovorno okno in se vrnete na Uvozi slike dialog, kliknite uvoz za uvoz slik.

5. V novem pogovornem oknu Uvozi slike izberite prvo celico ciljnega obsega, v katero boste vstavili slike, in kliknite OK gumb.

Trenutno so vse izbrane slike iz aktivne celice vstavljene v celice navpično ali vodoravno. Oglejte si desni posnetek zaslona:

O Uvozi slike Funkcija Kutools za Excel je namenjena vstavljanju serije slik hkrati z ujemajočo se velikostjo celice, določeno velikostjo ali lastnimi velikostmi slik v Excelu. Brezplačno preskusite!


Z Kutools za Excel vstavite več slik, ki se ujemajo z njihovimi imeni

Kutools za Excel podpira tudi dramatično Ujemi uvozne slike funkcija za ujemanje slik in vsebine celic ter ujemanje ustreznih slik samo v velikem obsegu v Excelu.

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! Get It Now

1. Izberite celice z imenom slike, v katere želite vstaviti njihove ustrezne slike, in kliknite Kutools Plus > Uvozno-izvoznih > Ujemi uvozne slike. glej posnetek zaslona:

2. V pojavnem pogovornem oknu Match Import Pictures naredite naslednje:
(1) Določite vrstni red prikaza slik iz Uvozno naročilo spustni seznam;
(2) Kliknite Dodaj , da dodate slike v polje s seznamom slik. Za vašo informacijo bodo prikazane samo slike, ki se ujemajo.
(3) Nato kliknite Velikost uvoza gumb.

3. Zdaj v Uvozi velikost slike v pogovornem oknu lahko izberete velikost slike, ki ustreza vašim potrebam, in kliknete Ok . Oglejte si posnetek zaslona:

4. Zdaj se vrnete na Uvozi slike dialog, kliknite uvoz za uvoz slik.

5. V pojavnem pogovornem oknu Match Import Pictures določite prvo celico ciljnega obsega, v katero boste vstavili slike, in kliknite OK . Oglejte si posnetek zaslona:

Zaenkrat so vse slike vstavljene v celice na podlagi njihovih relativnih imen. Oglejte si desni posnetek zaslona:

O Ujemi uvozne slike Funkcija Kutools za Excel lahko uporabnikom Excela pomaga hitro filtrirati slike glede na vrednosti celic in jih nato vstaviti v velikem obsegu. Poleg tega je mogoče te usklajene slike samodejno prilagoditi na določeno velikost ali velikost celice. Brezplačno preskusite!


Predstavitev: vstavite več slik in jih hkrati spremenite v Excelu

Kutools za Excel vključuje več kot 300 priročnih orodij za Excel, ki jih lahko brezplačno preizkusite brez omejitev 30 dni. Brezplačna preizkusna različica zdaj!      Kupi zdaj!


Sorodni članki


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (47)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Navodila z naslovom: Vstavite več slik v Excel s kodo VBA je preprosto super hitro in učinkovito !!! to je dobra alternativa za nakup in namestitev vtičnikov. To je moj prvi komentar na spletu!! pohvala!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, lahko uporabljam modul InsertPictures in deluje pravilno do jpg. Vendar ne želi delovati za PNG. Ali lahko prosim svetujete? Lep pozdrav, Lawrence
Ta komentar je moderator na spletnem mestu minimiziral
V prvi temi "Vstavi več slik v Excel s kodo VBA" kako vstaviti eno sliko v dve celici. na primer, prva slika bo vstavljena v celici A1 in A2, druga slika bo vstavljena v celici A3 in A4 in tako naprej.
Ta komentar je moderator na spletnem mestu minimiziral
dobra podpora za Excel.....vi gyus res pomagate pri varčevanju časa. hvala
Ta komentar je moderator na spletnem mestu minimiziral
Odlična objava! Ampak imam druge načine za isto stvar..... ===================================== ============ Sub ipic() Dim i kot celo število Za i = 2 do 10 celic(i, 1).Izberite Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures. Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Izberi z izborom .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# Konec z naslednjim obsegom("a1").Izberi End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja različica Kuttools za Mac?
Ta komentar je moderator na spletnem mestu minimiziral
Ali je mogoče spremeniti to kodo vba, da vstavi 4 slike v mrežni vzorec, kot je ta: pic1 v A1, pic2 v A2, pic3 v B1 in pic4 v B2? Tanki!
Ta komentar je moderator na spletnem mestu minimiziral
brez veze sem našel, kako to narediti :)
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, ali lahko prosim delite spremenjeno kodo?
Ta komentar je moderator na spletnem mestu minimiziral
Sub InsertPictures() 'Posodobi 20140513 Dim PicList() kot različica Dim PicFormat kot niz Dim Rng kot obseg Dim sShape kot oblika ob napaki Nadaljuj Naslednji PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=TrueActiveCol.Inlue) x IsArray(PicList) Nato xRowIndex = Application.ActiveCell.Row Za lLoop = LBound(PicList) To UBound(PicList) Nastavite Rng = Cells(xRowIndex, xColIndex) Nastavite sShape = ActiveSheet.Shapes.AddListPicture(CTListPicture(CTFPic), , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End, če End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Ali mi lahko pomagate spremeniti kodo za vstavljanje združenih stolpcev in vrstic. Sub InsertPictures() 'Posodobi 20140513 Dim PicList() Kot različica Dim PicFormat kot niz Dim Rng kot obseg Dim sShape Kot oblika ob napaki Nadaljuj Naslednji PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=TrueCl) x Stolpec If IsArray(PicList) Potem xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Nastavi Rng = Cells(xRowIndex, xColIndex) Nastavi sShape = ActiveSheet.Shature (PicLoopAdd.Shature) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End, če End Sub
Ta komentar je moderator na spletnem mestu minimiziral
izberite celice in jim spremenite velikost po širini in višini glede na vaše potrebe.. če imate deset slik, izberite deset celic ali več, izberite več..!! nato pritisnite Alt+F11 in nato kliknite VSTAVI POTEM kliknite MODUL NATEM PRILEPI NASLEDNJO KODO KOT JE.. Sub InsertPictures() 'Posodobi 20140513 Dim PicList() Kot varianta Dim PicFormat kot niz Dim Rng kot obseg Dim sShape kot naslednja oblika PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column, če je IsArray(PicList) Potem xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) Na UBound(P RngListL Cells) xRowIndex, xColIndex) Nastavite sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex = x1 Next End, če THE ZGORNJA KODA PRITISNITE F5 .. POTEM IZBIRAJTE DATOTEKE IZ RAČUNALNIKA Kjer koli SO. DO VAŠE POTREBE. POTEM ČE NISTE SHRANI DELOVNEGA ZVEZKA, BO PROŠIL ZA SHRANJEVANJE. ČE STE ŽE SHRANILI. POTEM JE VAŠA DELA UPAM, DA BO TO POMAGALO.. Ali..!!
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala, deluje
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni EXcel Masters, imam 2 lista excel. Ena z več kot sto slikami in opisom slike v naslednji celici. Drugi list po izbiri je verjetno ostal z 40 opisom. Kako lahko prenesem slike na ta list po moji izbiri. Hvala al
Ta komentar je moderator na spletnem mestu minimiziral
ali pa uporabite neposredno image-xls . s tem dodatkom za Excel lahko vstavite neomejeno število slik v Excelovo celico ali kot komentar. spremeni tudi velikost vaših slik. in možno je naročiti in filtrirati svoj Excelov list, vključno s slikami !
Ta komentar je moderator na spletnem mestu minimiziral
Sem uporabnik Mac in ko sem kopiral kodo v nov modul in ga zagnal, se nič ne zgodi. Ali moram nekaj narediti v Macu, da zaženem kodo VBA? Hvala
Ta komentar je moderator na spletnem mestu minimiziral
[quote]ali pa uporabite neposredno image-xls . s tem dodatkom za Excel lahko vstavite neomejeno število slik v Excelovo celico ali kot komentar. spremeni tudi velikost vaših slik. in možno je naročiti in filtrirati svoj Excelov list, vključno s slikami !Avtor Armin[/quote] [quote]Navodila z naslovom : Vstavite več slik v Excel s kodo VBA so preprosto super hitro in učinkovito !!! to je dobra alternativa za nakup in namestitev vtičnikov. To je moj prvi komentar na spletu!! pohvala!Avtor: Rahul Gupta[/quote] To sem poskusil in zdi se, da deluje v redu - vendar ne morete naročiti ali filtrirati Excelovega seznama, vključno s slikami. tudi slike niso proporcionalne. zato sem kupil image-xls - stane malo, vendar naredi vse, kar potrebujem
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo! Kakšen razlog, zakaj "Sub InsertPictures()" ne bi deloval v Excelu 2003? Sklic na Microsoft.Scripting.Runtime sem že dodal. Hvala vnaprej Gilberto
Ta komentar je moderator na spletnem mestu minimiziral
mi je zelo v pomoč. To je tako lepo delo....... Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, preizkusil sem kodo v svoji preglednici in je delovala odlično. Dokler ne poskušam narediti filtra. Ugotovite, da bo zadnja slika vedno prikazana na rezultatu filtra. zna kdo pomagati?
Ta komentar je moderator na spletnem mestu minimiziral
Z uporabo spodnjega programa VBA ne morete vstaviti slike v združeno celico, Sub InsertPictures() 'Posodobi 20140513 Dim PicList() Kot različica Dim PicFormat kot niz Dim Rng kot obseg Dim sShape As Shape On Error Nadaljuj Naslednji PicList = Application.P OpeniFilemat , MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Potem xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Nastavite RngCIn Sets(x,xROw) = Nastavi celice (xRow) = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub Prosim, svetujte mi, da spremenim VBA .
Ta komentar je moderator na spletnem mestu minimiziral
Hej vsi, to je super! Že nekaj časa spremljam vaše vadnice. Upal sem, da mi boste lahko pomagali, kako naj to spremenim iz lepljenja slik navzdol po stolpcu v čez vrstico? In kako lahko dodam "Polno ime datoteke (tj. example_image.jpg)" v vrstico nad njim. Vrstica 'A' : "Ime datoteke.jpg" Vrstica 'B' : "Sličica slike" Hvala!!
Ta komentar je moderator na spletnem mestu minimiziral
Hej, slike sem vstavil z lastno kodo VBE. In zdaj sem ga poskusil deliti z ostalimi, žal ne vidijo slik..... Hvaležna bi bila, če bi mi kdo povedal, kaj pogrešam. Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Ta koda SKORAJ deluje za moje potrebe. Imam 200 slik, vsaka slika mora biti na svojem listu. Kako naj se tega lotim?
Ta komentar je moderator na spletnem mestu minimiziral
Kako lahko spremenim naslednjo kodo, tako da so slike poseljene v izbranem obsegu celic v več stolpcih in vrsticah in ne v zaporednih celicah v zaporednih vrsticah v istem stolpcu? Sub InsertPictures() 'Posodobi 20140513 Dim PicList() Kot različica Dim PicFormat kot niz Dim Rng kot obseg Dim sShape Kot oblika ob napaki Nadaljuj Naslednji PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=TrueCl) x Stolpec If IsArray(PicList) Potem xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Nastavi Rng = Cells(xRowIndex, xColIndex) Nastavi sShape = ActiveSheet.Shature (PicLoopAdd.Shature) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End, če End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Alguem conseguiu o codigo para a pergunta dele? estou precisando também!
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL