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

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çin 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Ş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çin 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Ş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çin 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Ş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, herhangi bir sınırlama olmaksızın denemesi ücretsizdir 30 gün. Şimdi Ücretsiz Deneme!      Şimdi satın almak!


İlgili Makaleler


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (47)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Başlıklı talimatlar: VBA koduyla Excel'e birden çok resim ekleyin, harika, hızlı ve etkilidir !!! bu, eklenti satın almak ve yüklemek için iyi bir alternatiftir. Bu benim internetteki ilk yorumum!! şeref!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, InsertPictures modülünü kullanabiliyorum ve jpg'ye kadar düzgün çalışıyor. Yine de PNG için çalışmak istemiyor. Lütfen tavsiyede bulunabilir misiniz? Saygılarımızla, Lawrence
Bu yorum sitedeki moderatör tarafından en aza indirildi
"VBA koduyla Excel'e birden çok resim ekleme" başlıklı ilk konuda, iki hücreye bir resim nasıl eklenir. örneğin, ilk resim A1 ve A2 hücresine eklenecek, ikinci resim A3 ve A4 hücresine eklenecek vb.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Excel için iyi bir destek..... siz dostlar zamandan tasarruf etmenize gerçekten yardımcı oluyorsunuz. Teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika Yazı! Ama aynı şeyi yapmanın başka yollarını da buldum..... ==================================== ============ Sub ipic() Dim i Integer As Integer i = 2 ila 10 Cells(i, 1). Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures'ı seçin. Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg"). Seçimle Seçin .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# Sonraki Aralıkla Sonlandır("a1"). End Sub'ı seçin
Bu yorum sitedeki moderatör tarafından en aza indirildi
Mac için Kuttools'un bir sürümü var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu vba kodunu, aşağıdaki gibi ızgara benzeri bir desene 4 resim eklemek için değiştirmek mümkün müdür: A1'de pic1, A2'de pic2, B3'de pic1 ve B4'de pic2? Tanklar!
Bu yorum sitedeki moderatör tarafından en aza indirildi
boşver nasıl yapacağımı buldum :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, değiştirilmiş kodu paylaşır mısınız?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sub InsertPictures() 'Update 20140513 Dim PicList() Varyant Olarak Dim PicFormat As String Dim Rng As Aralık Dim sShape As Shape On Hata Devam Et Sonraki PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column 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(lCtLoop),Set , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Birleştirilmiş sütunu ve satırı eklemek için kodu değiştirmeme yardım eder misiniz? Sub InsertPictures() 'Update 20140513 Dim PicList() Varyant Olarak Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Hata Devam Et Sonraki PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Sütun If IsArray(PicList ) O zaman xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes. , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
hücreleri seçin ve ihtiyaçlarınıza göre genişlik ve yüksekliğe göre yeniden boyutlandırın.. on resminiz varsa, on veya daha fazla hücre seçin, daha fazlasını seçin..!! daha sonra Alt+F11 tuşlarına basın, ardından EKLE'ye tıklayın SONRA MODÜL'e tıklayın SONRA AŞAĞIDAKİ KODU OLDUĞU GİBİ YAPIŞTIRIN.. 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(PicCells)(Ring Cells) Set xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex'ten SONRA + 1 Sonraki End YUKARIDAKİ KOD F5'E BASIN. SONRA BİLGİSAYARDAN OLDUĞU YERDEKİ DOSYALARI SEÇİN. İHTİYACINIZA KADAR. SONRA, ÇALIŞMA KİTABIYI KAYDETMEDİĞİNİZ ZAMAN KAYDETMEK İSTEYECEKTİR. EĞER ZATEN KAYDETTİYSENİZ. O ZAMAN İŞİN UMUT BU YARDIMCI OLUR.. Ali..!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkürler, işe yarıyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba EXcel Masters, 2 excel sayfam var. Bir sonraki hücrede yüzden fazla Resim ve resmin açıklaması. Seçimden sonraki diğer sayfa muhtemelen 40 açıklama ile kaldı. Seçimime göre resimleri bu sayfaya nasıl aktarabilirim. teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
veya doğrudan image-xls kullanırsınız. Bu Excel eklentisiyle, Excel hücresine veya yorum olarak sınırsız sayıda Resim ekleyebilirsiniz. ayrıca Resimlerinizi yeniden boyutlandırır. ve Resimler de dahil olmak üzere Excel sayfanızı sipariş etmek ve filtrelemek mümkündür!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ben Mac kullanıcısıyım ve kodu yeni modüle kopyalayıp çalıştırdığımda hiçbir şey olmuyor. VBA kodunu çalıştırmak için mac'te yapmam gereken bir şey var mı? teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]veya doğrudan image-xls kullanıyorsunuz. Bu Excel eklentisiyle, Excel hücresine veya yorum olarak sınırsız sayıda Resim ekleyebilirsiniz. ayrıca Resimlerinizi yeniden boyutlandırır. ve Resimler de dahil olmak üzere Excel sayfanızı sipariş etmek ve filtrelemek mümkündür!Armin tarafından[/quote] [quote]Başlıklı talimatlar : VBA koduyla Excel'e birden çok resim ekleyin, hızlı ve etkilidir !!! bu, eklenti satın almak ve yüklemek için iyi bir alternatiftir. Bu benim internetteki ilk yorumum!! şeref!Rahul Gupta tarafından[/quote] Bunu denedim ve iyi çalışıyor gibi görünüyor - ancak resimler dahil Excel listesini sipariş edemez veya filtreleyemezsiniz. Ayrıca resimler orantılı olarak ölçeklenmemiştir. bu yüzden image-xls satın aldım - biraz pahalı ama ihtiyacım olan her şeyi yapıyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba! "Sub InsertPictures()" öğesinin Excel 2003'te çalışmamasının herhangi bir nedeni var mı? Microsoft.Scripting.Runtime referansını zaten ekledim. Şimdiden teşekkürler Gilberto
Bu yorum sitedeki moderatör tarafından en aza indirildi
bana çok yardımcı oluyor. Çok güzel bir çalışma....... Teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, e-tablomdaki kodu denedim ve mükemmel çalıştı. Filtre yapmayı deneyene kadar. Son resmin her zaman filtre sonucunda gösterileceğini bulun. yardım edebilecek var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aşağıdaki VBA programını kullanarak resmi birleştirilmiş hücreye ekleyemez, 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.Column If IsArray(PicList ) O zaman xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Rng = Cells(xRowColIndex) Set Rng = Cells(xRowIndex) = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub Lütfen VBA'yı değiştirmemi tavsiye edin .
Bu yorum sitedeki moderatör tarafından en aza indirildi
Herkese merhaba, Bu harika! Derslerinizi bir süredir takip ediyorum. Bana yardım edebileceğinizi umduğum şey, bunu görüntüleri bir sütuna yapıştırmaktan bir satıra yapıştırmaya nasıl değiştirebilirim? Ve "Tam Dosya Adını (yani example_image.jpg)" üstündeki Satıra nasıl ekleyebilirim. Satır 'A' : "Filename.jpg" Satır 'B' : "Resim Küçük Resmi" Teşekkürler!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hey, resimleri kendi VBE kodumu kullanarak ekledim. Ve şimdi başkalarıyla paylaşmaya çalıştım, ne yazık ki resimleri göremiyorlar..... Biri bana neyi kaçırdığımı söylerse minnettar olurum. teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kod NEREDEYSE benim ihtiyaçlarım için çalışıyor. 200 resmim var, her resmin kendi sayfasına gitmesi gerekiyor. Bu konuda nasıl giderim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aşağıdaki kodu, resimlerin aynı sütundaki ardışık satırlardaki ardışık hücreler yerine birden çok sütun ve satır boyunca seçilen bir hücre aralığında doldurulması için nasıl değiştirebilirim? Sub InsertPictures() 'Update 20140513 Dim PicList() Varyant Olarak Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Hata Devam Et Sonraki PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Sütun If IsArray(PicList ) O zaman xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes. , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Alguem conseguiu veya codigo para a pergunta dele? estou precisando também!
Buraya henüz hiç yorum yapılmamış
Daha Çok

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır