Skip to main content

Kutools for Office — Bir Paket. Beş Araç. Daha Fazla İş Yapın.

Bir Word belgesine dosya adlarıyla birden fazla resim nasıl eklenir?

Author Xiaoyang Last modified

Bir Word belgesinde, Ekle işlevini kullanarak birden fazla resmi hızlıca ekleyebilirsiniz. Ancak, resimleri eklerken dosya yolu ve dosya adlarını altyazı olarak dahil etmeniz gereken durumlar olabilir. Bu, özellikle görüntü kaynağının referans gösterilmesinin önemli olduğu dökümantasyon, raporlar veya sunumlar için kullanışlı olabilir.

Bu eğitimde, size bir Word belgesine birden fazla resmi dosya yolları ve dosya adlarıyla altyazı olarak eklemenin adımlarını göstereceğiz, böylece resimlerinizi daha etkili bir şekilde yönetebilirsiniz.

VBA kodu kullanarak dosya adlarıyla birden fazla resim ekleme

Kutools for Word kullanarak dosya adlarıyla birden fazla resim ekleme

VBA kodu kullanarak dosya adlarıyla birden fazla resim ekleme

Aşağıdaki VBA kodu, birden fazla resmi dosya yolu ve adlarıyla altyazı olarak eklemenize yardımcı olur. Lütfen şu adımları izleyin:

  1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
  2. Tıklayın Ekle > Modül, ve aşağıdaki kodu açılan modüle yapıştırın: 
    Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xPath & "\" & xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub
  3. Kodu çalıştırmak için F5 tuşuna basın. Seçili resimleri içeren klasörü seçebileceğiniz bir Gözat penceresi açılacaktır.

    4. Select a folder to insert pictures from

  4. Tamam'a tıklayın ve seçilen klasördeki tüm resimler, dosya yolları ve adları altyazı olarak eklenerek Word belgesine eklenecektir.

    Selected pictures are inserted into the document with filenames

Kutools for Word kullanarak dosya adlarıyla birden fazla resim ekleme

Kutools for Word kullanmak, birden fazla resmi dosya yollarıyla ve adlarıyla bir Word belgesine eklemenin verimli bir yolunu sunar. Bu özellik, dosya ayrıntılarını manuel olarak eklemeye kıyasla zamandan tasarruf sağlar ve doğruluğu garanti eder. Resimler özelliğini kullanarak bu görevi kolayca gerçekleştirebilirsiniz.

Kutools for Word,yapay zeka 🤖 ile donatılmış, görevlerinizi basitleştirmek için 100 üzerinde kullanışlı özellik sunar.

Kutools for Word'u yükledikten sonra şu adımları izleyin:

  1. Kutools > Çoklu Resim'e tıklayın.

    Multi-Picture option on the Kutools tab on the ribbon

  2. Açılan Resimleri Ekle diyalog kutusunda aşağıdaki işlemleri gerçekleştirin:
    • Eklemek istediğiniz resimleri seçmek için Dosyalar Ekle veya Klasör Ekle'ye tıklayın.
    • Diyalog kutusunun sol alt kısmındaki Her resmin dosya yolunu altyazı olarak ekle seçeneğini işaretleyin.
    • Resimleri tek seferde eklemek için Ekle düğmesine tıklayın.

      Insert Pictures dialog box

  3. Resimler eklendikten sonra, her resmin dosya yolu ve adı altyazı olarak eklenecektir.

    Selected pictures are inserted into the document with filenames

Kutools for Word, işinizi kolaylaştıran ve belge işleme becerilerinizi artıran en kapsamlı Word eklentisidir. Hemen Edinin!

En İyi Ofis Verimliliği Araçları

Kutools for Word - Word deneyiminizi 100 dikkate değer özellik ile geliştirin!

🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Süper Parlat (Biçimi Koru) / Süper Çeviri (Biçimi Koru) / AI Redaksiyon / Yapay Zeka Düzeltme...

📘 Belge Uzmanlığı: Sayfaları Böl / Belgeleri Birleştir / Aralığı PDF/TXT/DOC/HTML gibi çeşitli biçimlerde Dışa Aktar / Toplu PDF Dönüştürme...

✏ Metin Düzenleme: Birden fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Satırları ve Sütunları Tabloyu Çevir / Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır / Metin Kutularını Kaldır / Bağlantıları Kaldır / Diğer kaldırma araçları için Kaldır grubuna göz atın...

➕ Yaratıcı Ekler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Oluştur / Barkod Oluştur / Birden fazla Resim Ekle / Daha fazlasını Ekle grubunda keşfedin...

🔍 Hassas Seçimler: Belirli Sayfa / Tabloları / Şekilleri / Başlık Paragraflarını tam olarak seçin / Daha fazla Seç özelliği ile gezinmeyi geliştirin...

⭐ Özel Geliştirmeler: Herhangi bir Aralığa Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri arasında geçiş yap /11 Dönüşüm aracı...

🌍 40+ Dil Desteği: Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil destekleniyor!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Bu özellikleri denemek ister misiniz? Kutools for Word'u hemen indirin! 🚀
 

✨ Kutools for Office – Tek kurulumda beş güçlü araç!

Şunları içerir: Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tüm5 araca tek bir pakette sahip olun | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve anında verimliliği artır

En İyi Ofis Verimliliği Araçları

Kutools for Word - 100+ Word için araçlar

Ücretsiz İndir Şimdi Satın Al Kutools hakkında Daha Fazla Bilgi Edinin