Word'e resimleri nasıl ekler ve hepsini aynı boyuta ayarlarsınız?

Normalde Word belgenize birden fazla resmi aynı anda Orijinal Boyut ile ekleyebilirsiniz. Ancak tutarlı ve profesyonel bir görünüm için tüm resimlerin aynı boyutta olması gerekebilir. Her birini manuel olarak yeniden boyutlandırmak zaman alıcı olabilir. Bu kılavuz, Word belgenize birden fazla resmi verimli şekilde nasıl ekleyeceğinizi ve hepsini eşit şekilde nasıl yeniden boyutlandıracağınızı adım adım gösterecek; böylece profesyonel ve uyumlu bir düzen elde edersiniz.

Word'de VBA kullanarak birden fazla resmi ekleyin ve hepsini aynı boyutta yeniden boyutlandırın

Kutools for Word kullanarak tüm resimleri belirli bir resmin boyutuna göre yeniden boyutlandırın

Word'de VBA kullanarak birden fazla resmi ekleyin ve hepsini aynı boyutta yeniden boyutlandırın

Aşağıdaki VBA kodu, birden fazla resmi eklemenize ve hepsini belirttiğiniz boyutlara tek seferde yeniden boyutlandırmanıza olanak tanır. Lütfen aşağıdaki adımları izleyin:

1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül’e tıklayın, ardından aşağıdaki kodu Modül penceresine yapıştırın.

Sub InsertSpecificNumberOfPictureForEachPage()
    Dim xDlg As FileDialog
    Dim xFilePath As String
    Dim xFileName As String
    Dim xMsbBoxRtn As Long
    Dim xPicSize As String
    Dim xShape As InlineShape
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFilePath = xDlg.SelectedItems(1) & "\"
    Else
        Exit Sub
    End If
    xFileName = Dir(xFilePath & "*.*", vbNormal)
    While xFileName <> ""
        If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
        Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
            GoTo LblCtn
        End If
        With Selection
            .InlineShapes.AddPicture xFilePath & xFileName, False, True
            .TypeParagraph
            .Collapse wdCollapsEnd
            .TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .TypeParagraph
        End With
LblCtn:
        xFileName = Dir()
    Wend
    ActiveDocument.InlineShapes(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
    If xMsbBoxRtn = 6 Then
        xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
    End If
    For Each xShape In ActiveDocument.InlineShapes
      xShape.Height = Split(xPicSize, ",")(0)
      xShape.Width = Split(xPicSize, ",")(1)
    Next xShape
End Sub

3. Bu kodu çalıştırmak için F5 tuşuna basın. Bir Göz At penceresi görünecektir. Eklemek istediğiniz resimleri içeren klasörü seçin ve Tamam'a tıklayın.
4. Resimlerin boyutlarını değiştirmek isteyip istemediğinizi soran bir uyarı penceresi çıkacaktır.Evet'e tıklayın.

   

5. Görünen metin kutusuna yükseklik ve genişliği nokta (pt) cinsinden, aralarında virgül olacak şekilde girin ve ardından Tamam'a tıklayın.

   

6. Tüm Resim Ekle artık belirttiğiniz boyutlara göre yeniden boyutlandırılacaktır.

   

Kutools for Word kullanarak tüm resimleri belirli bir resmin boyutuna göre yeniden boyutlandırın

Word belgenizde birden fazla resim olduğunda, bunları tek tek yeniden boyutlandırmak gerçekten yorucu olabilir. Kutools for Word ile Resimleri Yeniden Boyutlandır aracı sayesinde tüm resimleri belirli bir resmin boyutuna hızla uyarlayabilirsiniz.

1. Bir resmi istediğiniz boyuta getirip seçin. Ardından KUTOOLS PLUS > Yeniden Boyutlandır > Seçime Göre Tüm Görüntüleri Yeniden Boyutlandır'a tıklayın.

Word belgesindeki tüm resimler, seçilen resmin boyutuna hemen uyarlanacaktır.

En İyi Ofis Verimlilik Araçları

Kutools for Word ile Word deneyiminizi 100'den fazla göz alıcı özellikle yükseltin!

🤖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 Uzmanlığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Biçimlerde Dışa Aktar (PDF/TXT/DOC/HTML…) / Toplu PDF Dönüştürme…

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

🧹Zahmetsiz Temizlik: Fazladan Boşlukları, Bölüm Sonlarını, Metin Kutularını ve Köprüleri kaldırmak için daha fazla araç bulmak üzere Kaldırgrubuna gidin…

➕Yaratıcı Ekleme Araçları: Binlik Ayırıcılar, Onay Kutusu, Radyo Düğmesi, QR Kodu, Barkod, Birden Çok Resim ve daha fazlasını Eklegrubunda keşfedin…

🔍Hassas Seçimler:Belirli Sayfaları/Tabloları/Şekilleri/Başlık Paragrafı/ Gezinmeyi daha fazla özelliğiyle geliştirin Seç…

⭐Yıldızlı Geliştirmeler: Herhangi Bir Konuma Git / Tekrarlanan Metni Otomatik Ekle / Belgeler Arasında Geçiş Yap Windows / 11Araçları Dönüşüm…

🌍40+ Dil Desteği: Kutools’u istediğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil dahil olmak üzere kapsamlı dil desteği sunuyor!

 

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

 

---

Office Tab- Office’a Sekmeli Arabirim Getirir, İşlerinizi Çok Daha Kolaylaştırır

• Word, Excel, PowerPoint, Publisher, Access, Visio ve Project’te sekmeli düzenleme ve okumayı etkinleştirin.
• Yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
• Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!

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

 

---

✨ Kutools for Office – Tek Kurulum, Beş Güçlü Araç!

İçerir Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint

📦 Tüm 5 araçları tek bir pakette alın | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve verimliliği hemen artırın

⬇️ Şimdi İndir🎁 Tam Paketi Satın Al📖 Daha Fazla Bilgi Edinin

En İyi Ofis Verimlilik Araçları

Kutools for Word- Word için 100+ Araç

• 🤖KUTOOLS AI Özellikleri:Yapay Zeka Asistanı/Gerçek Zamanlı Asistan/Süper Parlat/Süper Çeviri/AI Redaksiyon/Yapay Zeka Düzeltme
• 📘Belge Uzmanlığı:Sayfaları Böl/Belgeleri Birleştir/Toplu PDF Dönüştürme
• ✏İçerik Düzenleme:Toplu Bul ve Değiştir/Tüm Resimleri Yeniden Boyutlandır
• 🧹Zahmetsiz Temizlik:Fazladan Boşlukları Kaldır/Bölüm Sonu Kaldır
• ➕Yaratıcı Ekleme Araçları:Binlik Ayırıcılar Ekle/Onay Kutusu Ekle/QR Kodu Oluştur
• 🌍40+ Dil Desteği: Kutools sizin dilinizde konuşur – 40’tan fazla dil desteğiyle!

Ücretsiz İndirŞimdi Satın AlKutools Hakkında Daha Fazla Bilgi Edinin