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

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:
Uwagi: Trzymać Ctrl kluczem, możesz wybrać wiele nieprzylegających obrazów, klikając je jeden po drugim; trzymać przesunięcie 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 Tabela 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.

Uwagi: 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

Podróż Ruta de la Plata w liczbach 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 - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! 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:
Uwagi: Trzymać Ctrl kluczem, możesz wybrać wiele nieprzylegających obrazów, klikając je jeden po drugim; trzymać przesunięcie 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 Tabela 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 - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! 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:

Podróż Ruta de la Plata w liczbach 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 - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! 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:

Podróż Ruta de la Plata w liczbach 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ń 30 dni. Bezpłatna wersja próbna teraz!      Kup teraz!


Powiązane artykuły


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (47)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Instrukcje z nagłówkiem: Wstawianie wielu zdjęć do Excela z kodem VBA jest po prostu niesamowite, szybkie i skuteczne !!! jest to dobra alternatywa dla kupowania i instalowania wtyczek. To mój pierwszy komentarz online !! sława !
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam, jestem w stanie korzystać z modułu InsertPictures i działa poprawnie w formacie jpg. Nie chce jednak pracować dla PNG. Proszę, czy możesz mi doradzić? Pozdrawiam, Lawrence
Ten komentarz został zminimalizowany przez moderatora na stronie
W pierwszym temacie „Wstaw wiele zdjęć do programu Excel za pomocą kodu VBA” jak wstawić jedno zdjęcie w dwóch komórkach. na przykład pierwsze zdjęcie zostanie wstawione do komórek A1 i A2, drugie zdjęcie zostanie wstawione do komórek A3 i A4 i tak dalej.
Ten komentarz został zminimalizowany przez moderatora na stronie
dobre wsparcie dla Excela… wy naprawdę pomagacie w oszczędzaniu czasu. dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
Wspaniały post! Ale mam inne sposoby robienia tego samego ..... ============================================ ============ Sub ipic() Dim i As Integer For i = 2 do 10 Cells(i, 1).Wybierz Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures. Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Wybierz z zaznaczeniem .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# Koniec z następnym zakresem("a1").Wybierz End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy istnieje wersja Kuttools na Maca?
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy można zmodyfikować ten kod vba, aby wstawić 4 obrazy w patern podobnym do siatki w następujący sposób: pic1 w A1, pic2 w A2, pic3 w B1 i pic4 w B2? Czołgi!
Ten komentarz został zminimalizowany przez moderatora na stronie
nieważne, że znalazłem, jak to zrobić :)
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, czy mógłbyś udostępnić zmodyfikowany kod?
Ten komentarz został zminimalizowany przez moderatora na stronie
Sub InsertPictures() 'Aktualizuj 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape Po błędzie Wznów Dalej PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column Jeśli 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), msoCTals , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Następny koniec, jeśli koniec Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy możesz mi pomóc zmodyfikować kod, aby wstawić scaloną kolumnę i wiersz. Sub InsertPictures() 'Aktualizuj 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape Po błędzie Wznów Dalej PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Kolumna 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.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Następny koniec, jeśli koniec Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
wybierz komórki i zmień ich rozmiar według szerokości i wysokości zgodnie z potrzebami ur .. jeśli masz dziesięć zdjęć, wybierz dziesięć lub więcej komórek, wybierz więcej .. !! następnie naciśnij Alt+F11, a następnie kliknij INSERT, PO czym kliknij MODULE, A NASTĘPNIE WKLEJ PONIŻSZY KOD W STANIE, W JAKIM JEST. Sub InsertPictures() 'Aktualizuj 20140513 Dim PicList() jako wariant Dim PicFormat jako String Dim Rng jako zakres 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) Ustaw sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub AF POWYŻSZY KOD NACIŚNIJ F5 .. NASTĘPNIE WYBIERZ PLIKI Z KOMPUTERA, GDZIE SĄ. DO TWOJEJ POTRZEBY. WTEDY JEŚLI NIE ZAPISANO ZESZYTU, TO POPROSI O ZAPISANIE GO. JEŚLI JUŻ TO ZAPISAŁEŚ. WTEDY UR PRACA MA NADZIEJĘ, ŻE TO POMOŻE.. Ali..!!
Ten komentarz został zminimalizowany przez moderatora na stronie
Wielkie dzięki, to działa
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć EXcel Masters, mam 2 arkusze Excela. Jeden z ponad setką zdjęć i opisem zdjęcia w sąsiedniej komórce. Drugi arkusz po selekcji prawdopodobnie zostawił 40 opisów. Jak mogę przenieść zdjęcia do tego arkusza zgodnie z moim wyborem. Dzięki wszystkim
Ten komentarz został zminimalizowany przez moderatora na stronie
lub używasz bezpośrednio image-xls . z tym dodatkiem Excela możesz wstawiać nieograniczoną liczbę zdjęć do komórki Excela lub jako komentarz. zmienia również rozmiar zdjęć. i możliwe jest zamówienie i filtrowanie arkusza Excela, w tym zdjęć!
Ten komentarz został zminimalizowany przez moderatora na stronie
Jestem użytkownikiem Maca i po skopiowaniu kodu do nowego modułu i uruchomieniu go nic się nie dzieje. Czy jest coś, co muszę zrobić na Macu, aby uruchomić kod VBA? Dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
[cytat] lub użyj bezpośrednio image-xls . z tym dodatkiem Excela możesz wstawiać nieograniczoną liczbę zdjęć do komórki Excela lub jako komentarz. zmienia również rozmiar zdjęć. i możliwe jest zamówienie i filtrowanie arkusza Excela, w tym zdjęć!Przez Armina[/quote] [quote]Instrukcje z nagłówkiem: Wstawianie wielu zdjęć do Excela za pomocą kodu VBA jest po prostu niesamowite, szybkie i skuteczne !!! jest to dobra alternatywa dla kupowania i instalowania wtyczek. To mój pierwszy komentarz online !! sława !Rahula Gupty[/quote] Próbowałem tego i wydaje się, że działa dobrze - ale nie możesz zamówić ani filtrować listy Excela, w tym zdjęć. również fotki nie są skalowane proporcjonalnie. więc kupiłem image-xls - trochę kosztuje, ale czy wszystko, czego potrzebuję?
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam! Jakiś powód, dla którego funkcja „Sub InsertPictures()” nie działałaby w programie Excel 2003? Dodałem już odniesienie do Microsoft.Scripting.Runtime Z góry dziękuję Gilberto
Ten komentarz został zminimalizowany przez moderatora na stronie
to bardzo mi pomaga. To taka fajna praca ....... Dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, wypróbowałem kod w moim arkuszu kalkulacyjnym i zadziałał idealnie. Dopóki nie spróbuję filtrować. Zauważ, że ostatnie zdjęcie będzie zawsze wyświetlane w wynikach filtrowania. ktoś może pomóc?
Ten komentarz został zminimalizowany przez moderatora na stronie
Za pomocą poniższego programu VBA nie można wstawić obrazu do scalonej komórki, Sub InsertPictures() 'Aktualizuj 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Wznów Następny 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 , xColShape) Set s = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End Jeśli End Sub Proszę doradzić mi modyfikację VBA .
Ten komentarz został zminimalizowany przez moderatora na stronie
Hej wszystkim, to jest świetne! Od jakiegoś czasu śledzę wasze tutoriale. Miałem nadzieję, że możesz mi pomóc, jak zmienić to z przyklejania obrazów w kolumnie do wiersza? I jak mogę dodać "Pełną nazwę pliku (tj. example_image.jpg)" do wiersza nad nim. Wiersz „A” : „Nazwa pliku.jpg” Wiersz „B” : „Miniatura obrazu” Dzięki!!
Ten komentarz został zminimalizowany przez moderatora na stronie
Hej, wstawiłem zdjęcia używając własnego kodu VBE. A teraz próbowałem się tym podzielić z innymi, niestety nie są w stanie zobaczyć zdjęć.... Byłbym wdzięczny, gdyby ktoś mógł mi powiedzieć, czego mi brakuje. Dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
Ten kod PRAWIE działa na moje potrzeby. Mam 200 obrazów, każdy obraz musi być umieszczony na osobnym arkuszu. Jak mam się do tego zabrać?
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak mogę zmodyfikować następujący kod, aby obrazy były wypełniane w wybranym zakresie komórek w wielu kolumnach i wierszach, a nie w kolejnych komórkach w kolejnych wierszach w tej samej kolumnie? Sub InsertPictures() 'Aktualizuj 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape Po błędzie Wznów Dalej PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Kolumna 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.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Następny koniec, jeśli koniec Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Alguem conseguiu o codigo para a pergunta dele? tou precisando também!
Nie ma tu jeszcze żadnych komentarzy
Pokaż więcej

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL