Word'de aynı boyutta resim nasıl eklenir ve yeniden boyutlandırılır?
Normalde, bir Word belgesine birden fazla resmi orijinal boyutlarıyla tek seferde ekleyebilirsiniz. Ancak, tutarlı ve profesyonel bir görünüm için tüm resimlerin aynı boyutta olması gereken durumlar olabilir. Her bir resmi manuel olarak yeniden boyutlandırmak zaman alıcı olabilir. Bu kılavuz, size birden fazla resmi verimli bir şekilde Word belgesine nasıl ekleyeceğinizi ve onları aynı boyutta yeniden boyutlandırarak profesyonel ve uyumlu bir düzen elde etmeyi gösterecek.
VBA kullanarak Word'de birden fazla resmi aynı boyuta ekleme ve yeniden boyutlandırma
Kutools for Word kullanarak tüm resimleri belirli bir resme göre yeniden boyutlandırma
VBA kullanarak Word'de birden fazla resmi aynı boyuta ekleme ve yeniden boyutlandırma
Aşağıdaki VBA kodu, birden fazla resmi eklemenize ve hepsini belirttiğiniz boyutlara aynı anda yeniden boyutlandırmanıza yardımcı olabilir. Lütfen şu adımları izleyin:
- Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.
- Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
- Bu kodu çalıştırmak için F5'e basın. Bir Gözat penceresi açılacak. Eklemek istediğiniz resimleri içeren klasörü seçin ve Tamam'a tıklayın.
- Resimleri yeniden boyutlandırmak isteyip istemediğinizi soran bir istem belirecek. Evet'e tıklayın.
- Açılan metin kutusuna yüksekliği ve genişliği nokta (pt) cinsinden, virgülle ayırarak girin ve ardından Tamam'a tıklayın.
- Tüm eklenen resimler artık belirtilen boyutlara yeniden boyutlandırılacaktır.
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
Kutools for Word kullanarak tüm resimleri belirli bir resme göre yeniden boyutlandırma
Word belgenizde birden fazla resim olduğunda, bunları teker teker yeniden boyutlandırmak yorucu olabilir. Kutools for Word ile Resimleri Yeniden Boyutlandırma aracı, tüm resimleri belirli bir resmin boyutuna hızlıca yeniden boyutlandırmanıza olanak tanır.
- Bir resmi istediğiniz boyuta getirin ve 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 yeniden boyutlandırılacaktır.
En İyi Ofis Verimlilik Araçları
Kutools for Word - Word Deneyiminizi 100’den Fazla Olağanüstü Özellik ile 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 Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Farklı Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / Toplu Olarak 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ırlarını ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Fazladan Boşlukları, Bölüm Sonlarını, Metin Kutularını, Bağlantıları Temizleyin / Daha fazla kaldırma aracı için Kaldır grubunu keşfedin...
➕ Yaratıcı Eklemler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Ekle / Barkod Ekle / Birden Fazla Resim Ekle / Ekle grubunda daha fazlasını keşfedin...
🔍 Hassas Seçimler: Belirli Sayfaları, Tabloları, Şekilleri, Başlık Paragraflarını Nokta Atışıyla Seçin / Daha fazla Seç özelliğiyle gezinmeyi kolaylaştırın...
⭐ Yıldız İyileştirmeler: İstediğiniz Konuma Hızla Gidin / Yinelenen Metni Otomatik Olarak Ekleyin / Belge Pencereleri Arasında Hızla Geçiş Yapın /11 Dönüştürme Aracı...
🌍 40+ Dili Destekler: Kutools'u tercih ettiğiniz dilde kullanabilirsiniz – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil desteği!
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 Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Toplu Olarak PDF'ye Dönüştür
- ✏ İçerik Düzenleme: Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır
- 🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır
- ➕ Yaratıcı Eklemler: Binlik Ayırıcılar Ekle / Onay Kutuları Ekle / QR Kodları Oluştur
- 🌍 40+ Dili Destekler: Kutools sizin dilinizde –40'tan fazla dil desteği!