Przejdź do głównej zawartości

Jak wstawić wiele zdjęć i zmienić ich rozmiar jednocześnie w programie Excel?

Wstawienie jednego obrazu do programu Excel jest łatwe, ale jeśli musisz wstawić wiele obrazów naraz, aby zaoszczędzić dużo czasu, jak możesz to zrobić?


Wstaw wiele zdjęć i zmień ich rozmiar zbiorczo za pomocą funkcji Wstaw obraz

Możemy wstawiać wiele obrazów zbiorczo za pomocą funkcji (Wstaw) Obraz w programie Excel, a następnie jednocześnie zmieniać ich rozmiar. Wykonaj następujące czynności:

1. W arkuszu kliknij wstawka > Obrazek.

2. W oknie dialogowym Wstawianie obrazu otwórz folder zawierający zdjęcia, które chcesz wstawić, wybierz wiele obrazów, zgodnie z potrzebami, i kliknij wstawka przycisk. Zobacz zrzut ekranu:
Note: Trzymać Ctrl kluczem, możesz wybrać wiele nieprzylegających obrazów, klikając je jeden po drugim; trzymać Shift klawiszem, możesz wybrać wiele sąsiednich zdjęć, klikając pierwszy i ostatni obraz.

Teraz obrazy są wstawiane zbiorczo i układane w stosy w arkuszu.

3. Pozostaw te zdjęcia zaznaczone i zmieniaj ich rozmiar zbiorczo, wprowadzając nowy numer w obu Szerokość i Wysokość pudełka w Rozmiar grupa na utworzony patka. Zobacz zrzut ekranu:

Teraz wszystkie wstawione obrazy są jednocześnie zmieniane na ten sam rozmiar.

4. Obecnie musisz ręcznie przesuwać każde zdjęcie oddzielnie w odpowiednie miejsce.

Note: Jeśli są dziesiątki zdjęć ułożonych w stos, ręczne przenoszenie ich do odpowiednich miejsc będzie czasochłonne.

Wstaw wsadowo wiele zdjęć pasujących do zawartości komórki w programie Excel

Połączenia Dopasuj importowane obrazy funkcja Kutools dla programu Excel to fantastyczne narzędzie, które może zbiorczo importować i wstawiać wiele zdjęć na podstawie zawartości komórki oraz łatwo zmieniać rozmiar importowanych obrazów tak samo jak rozmiar komórki lub do określonego rozmiaru.


dopasowanie reklamy zaimportowane zdjęcia 01

Kutools dla programu Excel - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Zdobądź To Teraz

Wstaw wiele obrazów i zbiorczo zmieniaj ich rozmiar w programie OneNote

Aby uniknąć przenoszenia obrazów układanych jeden po drugim, ta metoda wprowadza kolejną sztuczkę polegającą na wstawianiu wielu obrazów za pomocą programu OneNote. Wykonaj następujące czynności:

1. Uruchom program OneNote i utwórz nową stronę. A następnie kliknij wstawka > Obrazek.

2. W oknie dialogowym Wstawianie obrazu otwórz folder zawierający zdjęcia, które chcesz wstawić, wybierz wiele obrazów, zgodnie z potrzebami, i kliknij wstawka przycisk. Zobacz zrzut ekranu:
Note: Trzymać Ctrl kluczem, możesz wybrać wiele nieprzylegających obrazów, klikając je jeden po drugim; trzymać Shift klawiszem, możesz wybrać wiele sąsiednich zdjęć, klikając pierwszy i ostatni obraz.

doc wstaw wiele zdjęć OneNote 032

3. naciśnij Ctrl + A klawisze, aby zaznaczyć wszystkie wstawione obrazy w programie OneNote, a następnie naciśnij klawisz Ctrl + C klucze do ich skopiowania.

4. Przejdź do arkusza w programie Excel i naciśnij Ctrl + V klucze do wklejenia obrazów w arkuszu. Teraz wszystkie zdjęcia są wklejane pionowo, jak pokazano na lewym ekranie.

5. Wybierz jedno ze zdjęć i naciśnij Ctrl + A klawisze, aby wybrać je wszystkie. Następnie zbiorczo zmień rozmiar zdjęć, wprowadzając nowe liczby do obu Szerokość i Wysokość pudełka w Rozmiar grupa na utworzony patka. Zobacz zrzut ekranu:

Teraz wszystkie określone obrazy są wstawiane do programu Excel i zbiorczo zmieniane do tego samego rozmiaru.


Wstaw wiele zdjęć do Excela za pomocą kodu VBA

Za pomocą następującego kodu VBA możesz wstawiać wiele obrazów do komórki pliku Excela po komórce.

1. Wybierz pierwszą komórkę zakresu docelowego, do której chcesz wstawić obrazy.

2. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.

3. Kliknij wstawka > Modułi wklej następujące makro w Okno modułu.

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. Następnie naciśnij F5 klucz do uruchomienia tego kodu.

5. W oknie dialogowym Otwórz otwórz folder zawierający obrazy, które chcesz wstawić, wybierz wiele zdjęć, które chcesz wstawić, i kliknij Otwarte przycisk. Wszystkie wybrane obrazy zostały zaimportowane do twojego wyboru na podstawie rozmiaru komórki. Zobacz zrzut ekranu:


Wstaw wiele zdjęć i automatycznie dostosuj je za pomocą Kutools for Excel

Kutools dla programu Excel'S Importować zdjęcia narzędzie może pomóc w szybkim wstawieniu wielu obrazów do programu Excel na podstawie rozmiaru komórki lub rozmiaru obrazu. Możesz również określić wysokość i szerokość obrazów, jak potrzebujesz.

Kutools dla programu Excel - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Zdobądź To Teraz

1. Kliknij Kutools Plus > Import / Export > Importować zdjęciazobacz zrzut ekranu:

2, w Importować zdjęcia w oknie dialogowym, wykonaj następujące czynności:
(1) Określ kolejność wyświetlania obrazów z pliku Import zamówienia rozwijana lista, którą możesz wybrać Wypełnij pionowo komórkę po komórce or Wypełnij poziomo komórkę za komórką.
(2) Kliknij Dodaj , aby wybrać pliki obrazów lub folder, aby dodać obrazy do listy obrazów. Wszystkie wybrane zdjęcia zostaną wyświetlone w polu listy.
(3) Kliknij Rozmiar importu przycisk;

3. Teraz w Importuj rozmiar obrazu Możesz wybrać rozmiar obrazu odpowiadający Twoim potrzebom. Zobacz zrzut ekranu:

4. Po określeniu rozmiaru obrazu kliknij OK aby zamknąć to okno dialogowe i wrócić do pliku Importować zdjęcia dialog, kliknij import przycisk, aby zaimportować obrazy.

5. W nowym oknie dialogowym Importuj obrazy wybierz pierwszą komórkę zakresu docelowego, do którego wstawisz zdjęcia, i kliknij OK przycisk.

Obecnie wszystkie wybrane obrazy zostały wstawione do komórek z aktywnej komórki pionowo lub poziomo. Zobacz prawy zrzut ekranu:

Połączenia Importować zdjęcia funkcja Kutools dla programu Excel jest przeznaczona do wstawiania partii zdjęć jednocześnie z pasującym rozmiarem komórki, określonym rozmiarem lub własnymi rozmiarami zdjęć w programie Excel. Bezpłatna wersja próbna!


Wstaw wiele zdjęć pasujących do ich nazw za pomocą Kutools for Excel

Kutools dla programu Excel obsługuje również dramatyczną Dopasuj importowane obrazy funkcja dopasowywania obrazów i zawartości komórek oraz wstawiania dopasowanych obrazów tylko zbiorczo w programie Excel.

Kutools dla programu Excel - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Zdobądź To Teraz

1. Wybierz komórki z nazwami obrazów, do których chcesz wstawić pasujące obrazy, i kliknij Kutools Plus > Import / Export > Dopasuj importowane obrazy. zobacz zrzut ekranu:

2. W wyskakującym oknie dialogowym Dopasuj importowane obrazy wykonaj następujące czynności:
(1) Określ kolejność wyświetlania obrazów z pliku Import zamówienia Lista rozwijana;
(2) Kliknij Dodaj przycisk, aby dodać obrazy do pola listy obrazów. Dla Twojej informacji, wyszczególnione zostaną tylko pasujące zdjęcia.
(3) Następnie kliknij Rozmiar importu przycisk.

3. Teraz w Importuj rozmiar obrazu możesz wybrać rozmiar obrazu odpowiadający Twoim potrzebom i kliknąć Ok przycisk. Zobacz zrzut ekranu:

4. Teraz wracasz do Importować zdjęcia dialog, kliknij import przycisk, aby zaimportować obrazy.

5. W wyskakującym oknie dialogowym Dopasuj importowane obrazy określ pierwszą komórkę zakresu docelowego, do którego wstawisz obrazy, i kliknij OK przycisk. Zobacz zrzut ekranu:

Jak dotąd wszystkie obrazy są wstawiane do komórek na podstawie ich względnych nazw. Zobacz prawy zrzut ekranu:

Połączenia Dopasuj importowane obrazy funkcja Kutools dla programu Excel może pomóc użytkownikom programu Excel w szybkim filtrowaniu zdjęć na podstawie wartości komórek, a następnie zbiorczym wstawianiu tych zdjęć. Ponadto te dopasowane obrazy mogą być automatycznie zmieniane do określonego rozmiaru lub rozmiaru komórki. Bezpłatna wersja próbna!


Demo: Wstaw wiele zdjęć i zmień ich rozmiar jednocześnie w programie Excel

Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi dla programu Excel, które można bezpłatnie wypróbować bez ograniczeń przez 30 dni. Bezpłatna wersja próbna teraz!      Kup teraz!


Powiązane artykuły

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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