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 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 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
- 🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / 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
- ✏ Metin 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ı Ekler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / QR Kodu Oluştur
- 🌍 40+ Dil Desteği: Kutools sizin dilinizde –40'tan fazla dil desteği!