Skip to main content

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

Author: Xiaoyang Last Modified: 2025-06-10

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

  5. 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,AI 🤖 ile donatılmış, görevlerinizi basitleştirmek için 100’den fazla 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 Verimlilik Araçları

Kutools for Word - Word Deneyiminizi 100’den Fazla Olağanüstü Özellik ile Zirveye Taşıyın!

🤖 Kutools AI Özellikleri: Yapay Zeka Asistanı / Gerçek Zamanlı Asistan / Süper Parlat (Biçimi Koru) / Süper Çeviri (Biçimi Koru) / AI Redaksiyon / Yapay Zeka Düzeltme...

📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Farklı Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / Toplu PDF’ye Dönüştür...

İçerik Düzenleme: Birden Fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Tablo Satır ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...

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

Yaratıcı Ekleme: Binlik Ayraçları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu / Barkod / Birden Fazla Resim / Ekle grubunda daha fazlasını keşfedin...

🔍 Hassas Seçimler: Belirli Sayfaları / Tabloları / Şekilleri / Başlık Paragraflarını Hedefleyin; daha fazla Seç özelliğiyle gezinmeyi geliştirin...

Yıldız Geliştirmeler: Herhangi Bir Konuma Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri Arasında Geçiş Yap /11 Dönüştürme Aracı...

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