Ana içeriğe atla

Excel'de aynı anda birden çok resim nasıl eklenir ve yeniden boyutlandırılır?

Excel'e bir resim eklemek bizim için kolaydır, ancak aynı anda birden fazla resim eklemeniz gerekirse, çok zaman kazandırmak istiyorsanız, nasıl yapabilirsiniz?


Resim Ekle özelliği ile birden fazla resim ekleyin ve bunları toplu olarak yeniden boyutlandırın

Excel'deki (Ekle) Resim özelliği ile birden fazla resmi toplu olarak ekleyebilir ve ardından aynı anda yeniden boyutlandırabiliriz. Lütfen aşağıdaki işlemleri yapın:

1. Çalışma sayfasında Ekle > Resim.

2. Resim Ekle iletişim kutusunda, lütfen ekleyeceğiniz resimleri içeren klasörü açın, ihtiyacınız olan birden fazla resim seçin ve Ekle buton. Ekran görüntüsüne bakın:
not: Tutma Ctrl tuşu, tek tek tıklayarak birden fazla bitişik olmayan resmi seçebilirsiniz; tutma vardiya tuşu, ilk ve son resme tıklayarak birden çok bitişik resmi seçebilirsiniz.

Şimdi resimler toplu olarak eklenir ve çalışma sayfasına istiflenir.

3. Bu resimleri seçili tutun ve her ikisine de yeni numara girerek toplu olarak yeniden boyutlandırın genişlik ve Yükseklik kutuları beden üzerinde grup oluşturulan sekmesi. Ekran görüntüsüne bakın:

Artık eklenen tüm resimler aynı anda aynı boyuta değiştirilir.

4. Şu anda her bir resmi ayrı ayrı uygun bir yere manuel olarak taşımanız gerekiyor.

not: İstiflenen düzinelerce resim varsa, bunları yerlere sığdırmak için manuel olarak taşımak oldukça zaman alıcı olacaktır.

Excel'de hücre içeriğiyle eşleşen birden çok resmi toplu olarak ekleyin

The İçe Aktarılmış Resimleri Eşleştir Kutools for Excel'in özelliği, hücre içeriğine göre birden çok resmi toplu olarak içe aktarabilen ve ekleyebilen ve içe aktarılan resimleri hücre boyutuyla aynı veya belirtilen boyuta kolayca yeniden boyutlandırabilen harika bir araçtır.


reklam eşleşmesi içe aktarılan resimler 01

Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alın

OneNote ile birden çok resim ekleyin ve bunları toplu olarak yeniden boyutlandırın

Resimleri tek tek hareket ettirmekten kaçınmak için, bu yöntem OneNote yardımıyla birden çok resim eklemek için başka bir numara sunar. Lütfen aşağıdaki işlemleri yapın:

1. OneNote'u başlatın ve yeni bir sayfa oluşturun. Ve sonra tıklayın Ekle > Resim.

2. Resim Ekle iletişim kutusunda, lütfen ekleyeceğiniz resimleri içeren klasörü açın, ihtiyacınız olan birden fazla resim seçin ve Ekle buton. Ekran görüntüsüne bakın:
not: Tutma Ctrl tuşu, tek tek tıklayarak birden fazla bitişik olmayan resmi seçebilirsiniz; tutma vardiya tuşu, ilk ve son resme tıklayarak birden çok bitişik resmi seçebilirsiniz.

doc birden çok resim ekleme OneNote 032

3. Basın Ctrl + A OneNote'a eklenen tüm resimleri seçmek için tuşlarına basın ve ardından Ctrl + C kopyalamak için anahtarlar.

4. Excel'de çalışma sayfasına gidin ve Ctrl + V resimleri çalışma sayfasına yapıştırmak için tuşlar. Şimdi tüm resimler, gösterilen sol ekran görüntüsü gibi dikey olarak yapıştırılır.

5. Resimlerden birini seçin ve Ctrl + A hepsini seçmek için tuşlara basın. Ardından, her ikisine de yeni numaralar girerek resimleri toplu olarak yeniden boyutlandırın. genişlik ve Yükseklik kutuları beden üzerinde grup oluşturulan sekmesi. Ekran görüntüsüne bakın:

Artık belirtilen tüm resimler Excel'e eklenir ve toplu olarak aynı boyutta yeniden boyutlandırılır.


VBA kodu ile Excel'e birden çok resim ekleyin

Aşağıdaki VBA kodu ile, Excel dosyasına hücre hücre hücreye birden çok resim ekleyebilirsiniz.

1. Resimleri eklemek istediğiniz hedef aralığın ilk hücresini seçin.

2. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

3. tıklayın Ekle > modülve aşağıdaki makroyu Modül Penceresi.

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar.

5. Aç iletişim kutusunda, lütfen eklemek istediğiniz resimleri içeren klasörü açın, ekleyeceğiniz birden fazla resim seçin ve Açılış buton. Ve seçilen tüm resimler, hücre boyutuna göre seçiminize aktarıldı. Ekran görüntüsüne bakın:


Kutools for Excel ile birden fazla resim ekleyin ve bunları otomatik olarak ayarlayın

Kutools for Excel'S Resimleri içe aktarma yardımcı program, hücre boyutuna veya resim boyutuna göre Excel'e hızlı bir şekilde birden çok resim eklemenize yardımcı olabilir. Resimlerin yüksekliğini ve genişliğini de istediğiniz gibi belirleyebilirsiniz.

Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alın

1. tıklayın Kutools Artı > İthalat / İhracat > Resimleri içe aktarma, ekran görüntüsüne bakın:

2. In Resimleri içe aktarma iletişim kutusu, lütfen aşağıdaki işlemleri yapın:
(1) Ekrandaki resimlerin görüntülenme sırasını belirtin. Siparişi içe aktar açılır liste, seçebilirsiniz Hücreden sonra hücreyi dikey olarak doldur or Hücreden sonra hücreyi yatay olarak doldur.
(2) Tıklayın Ekle Resimleri Resim listesine eklemek üzere resim dosyalarını veya klasörü seçmek için düğmesine basın. Ve seçtiğiniz tüm resimler liste kutusunda listelenecektir.
(3) İçe aktarma boyutu düğmesi;

3. Şimdi de Resim Boyutunu İçe Aktar iletişim kutusu, ihtiyacınıza uygun resim boyutunu seçebilirsiniz. Ekran görüntüsüne bakın:

4. Resim boyutunu belirledikten sonra lütfen tıklayınız OK bu iletişim kutusunu kapatmak ve Resimleri içe aktarma iletişim, tıklayın ithalat Görüntüleri içe aktarmak için düğmesine basın.

5. Yeni Resimleri İçe Aktar iletişim kutusunda, lütfen resimleri ekleyeceğiniz hedef aralığın ilk hücresini seçin ve OK düğmesine basın.

Şu anda, seçtiğiniz tüm resimleriniz hücrelerinize aktif hücreden dikey veya yatay olarak eklenmiştir. Sağdaki ekran görüntüsüne bakın:

The Resimleri içe aktarma Kutools for Excel özelliği, Excel'de eşleşen hücre boyutu, belirtilen boyut veya resimlerin kendi boyutlarıyla aynı anda bir dizi resim eklemek için tasarlanmıştır. Ücretsiz Deneme Yapın!


Kutools for Excel ile adlarıyla eşleşen birden çok resim ekleyin

Kutools for Excel ayrıca dramatik bir İçe Aktarılmış Resimleri Eşleştir Excel'de resimleri ve hücre içeriğini eşleştirme ve eşleşen resimleri yalnızca toplu olarak ekleme özelliği.

Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alın

1. Eşleşen resimlerini eklemek istediğiniz resim adı hücrelerini seçin ve Kutools Artı > İthalat / İhracat > İçe Aktarılmış Resimleri Eşleştir. ekran görüntüsüne bakın:

2. Açılan İçe Aktarma Resimleri Eşleştir iletişim kutusunda lütfen aşağıdaki işlemleri gerçekleştirin:
(1) Ekrandaki resimlerin görüntülenme sırasını belirtin. Siparişi içe aktar açılır liste;
(2) Tıklayın Ekle resimleri resim listesi kutusuna eklemek için düğmesine basın. Bilginiz olması için, sadece eşleşen resimler listelenecektir.
(3) Sonra tıklayın İçe Aktarma Boyutu düğmesine basın.

3. Şimdi de Resim Boyutunu İçe Aktar iletişim kutusunda, ihtiyacınıza uygun resim boyutunu seçebilir ve Ok buton. Ekran görüntüsüne bakın:

4. Şimdi geri dönüyorsun Resimleri içe aktarma iletişim, tıklayın ithalat Görüntüleri içe aktarmak için düğmesine basın.

5. İçe Aktarılan Resimleri Eşleştir iletişim kutusunu açarken, lütfen resimleri ekleyeceğiniz hedef aralığın ilk hücresini belirtin ve OK buton. Ekran görüntüsüne bakın:

Şimdiye kadar, tüm resimler göreceli adlarına göre hücrelere eklenmiştir. Sağdaki ekran görüntüsüne bakın:

The İçe Aktarılmış Resimleri Eşleştir Kutools for Excel özelliği, Excel kullanıcılarının resimleri hücre değerlerine göre hızlı bir şekilde filtrelemelerine ve ardından bu resimleri toplu olarak eklemelerine yardımcı olabilir. Ek olarak, bu eşleşen resimler, belirtilen boyuta veya hücre boyutuna otomatik olarak yeniden boyutlandırılabilir. Ücretsiz Deneme Yapın!


Demo: Birden çok resim ekleyin ve bunları Excel'de aynı anda yeniden boyutlandırın

Kutools for Excel Excel için 300'den fazla kullanışlı araç içerir ve sınırlama olmaksızın 30 gün içinde ücretsiz olarak deneyebilirsiniz. Şimdi Ücretsiz Deneme!      Satın Al!


İlgili Makaleler

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
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