Word'deki tüm / birden çok görüntü nasıl yeniden boyutlandırılır?
İnternetten veya diğer dosyalardan görüntüleri kopyaladığımızda veya içe aktardığımızda, görüntülerin boyutları çeşitli olabilir. Resimleri tek tek nasıl yeniden boyutlandıracağını herkes bilir, ancak hepsini aynı anda aynı boyuta getirmek istersek nasıl yapabiliriz? Bu eğitim size görüntüleri yeniden boyutlandırmanın birkaç yöntemini gösterecektir.
Word'de resimleri manuel olarak yeniden boyutlandırma
Görüntüleri VBA ile yeniden boyutlandırma
Kutools for Word ile birden fazla görüntüyü aynı anda yeniden boyutlandırın
Word'de resimleri manuel olarak yeniden boyutlandırma
1. Resme tıklayarak resmin boyutlandırma tutamaçlarını göstermek için;
2. İmleci resmin boyutlandırma tutamaçlarından birine koyun.
3. Resim boyutu ihtiyaçlarınıza uygun olana kadar boyutlandırma tutamacını sürükleyin. Ekran görüntüsüne bakın:
not: Bu yöntemle, birden çok fotoğrafı aynı anda yeniden boyutlandıramazsınız. Tüm resimler yeniden boyutlandırılana kadar bunları tek tek yeniden boyutlandırmanız gerekir.
Görüntüleri VBA ile yeniden boyutlandırma
Aşağıdaki VBA kodu ile resimleri ideal boyutunuza göre yeniden boyutlandırabilirsiniz. Aşağıdaki gibi yapabilirsiniz ：
Bu örnekte, resim boyutunu 1.78 inç yüksekliğe ve 3.17 inç genişliğe yeniden boyutlandırıyoruz.
1. Lütfen boyutunu değiştirmek istediğiniz bir resim seçin;
2. Basın Alt + F11 açmak için Uygulamalar için Microsoft Visual Basic pencere;
3. tıklayın modül itibaren Ekle sekmesinde, aşağıdaki VBA kodunu kopyalayıp modül pencere;
VBA kodu: Bir görüntüyü belirli bir boyuta yeniden boyutlandırın:
Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub4. Tıkla koşmak düğmesi veya F5 VBA kodunu çalıştırmak için anahtar ve seçilen görüntü ihtiyacınız boyutuna göre yeniden boyutlandırıldı.
not: Yukarıdaki kodda, Shp.Height = İnçToPoints olarak (1.78) ve shp.Width = İnçToPoints (3.17) Resmin yüksekliği ve genişliğidir, ihtiyacınızı karşılamak için boyutunu değiştirebilirsiniz.
Bu VBA koduyla, aynı anda tümünü veya birden çok resmi yeniden boyutlandıramazsınız. Word belgesi ile belge arasında gidip gelmeniz gerekir. Uygulamalar için Microsoft Visual Basic resmi seçmek ve kodu uygulamak için pencere. Bu çok zaman alıyor.
Kutools for Word ile görüntüleri yeniden boyutlandırın
İle Kutools for Word 's Görüntüleri Yeniden Boyutlandır yardımcı program, sinir bozucu ve zaman alan işlemlerden kurtulabilir ve belgenizdeki tüm görüntüleri hızla yeniden boyutlandırabilirsiniz.
| Kutools for Word : 100'den fazla kullanışlı Word eklentisi ile 60 günde sınırlama olmaksızın ücretsiz deneyin. |
1. Lütfen bu yardımcı programı tıklayarak uygulayın Kutools Artı > Yeniden boyutlandırma. Ekran görüntüsüne bakın:
2. Tüm resimleri orijinal boyutlarının belirli bir yüzdesine yeniden boyutlandırmak istiyorsanız, lütfen aşağı açılır listeden altı yüzde değerinden birini seçin. Örneğin, tüm resimleri orijinal boyutlarının% 50'si oranında yeniden boyutlandırmak istiyorsanız, lütfen %50. Tıkladıktan sonra %25, tüm resimlerin% 50 boyutunda olduğunu göreceksiniz. Ekran görüntüsüne bakın:
Tüm resimleri seçilen bir resimle aynı boyuta ayarlamak istiyorsanız, lütfen model boyutu olarak bir resim seçin ve ardından Kutools Artı > Yeniden boyutlandırma > Görüntüleri Seçimle Yeniden Boyutlandırmave tüm resimler seçilene göre aynı boyutta yeniden boyutlandırılacaktır, ekran görüntüsüne bakın:
Hakkında daha ayrıntılı bilgi için Kutools for Word'S Görüntüleri Yeniden Boyutlandır yardımcı program, lütfen tıklayın okuyun.
Kutools for Word'ü indirmek ve şimdi ücretsiz deneme için tıklayın!
Demo: Word'de tüm resimleri aynı anda yeniden boyutlandırın
En İyi Ofis Üretkenlik Araçları
Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!
🤖 Kutools Yapay Zeka Asistanı: Yazılarınızı AI ile dönüştürün - İçerik Oluştur / Metni Yeniden Yaz / Belgeleri Özetleyin / Bilgi İçin Arayın Belgeye dayalı, hepsi Word'de
📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / PDF'ye Toplu Dönüştürme / Sayfaları Görüntü Olarak Dışa Aktar / Aynı Anda Birden Çok Dosyayı Yazdırma...
✏ İçerik Düzenleme: Toplu Bul ve Değiştir Birden Çok Dosyada / Tüm Resimleri Yeniden Boyutlandır / Tablo Satırlarını ve Sütunlarını Yer Değiştirme / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Uzaklaşın Ekstra Alanlar / Bölüm Sonları / Tüm Başlıklar / Metin kutuları / Köprüler / Daha fazla sökme aleti için sayfamıza gidin Grubu Kaldır...
➕ Yaratıcı Ekler: Ekle Bin Ayırıcı / Onay Kutuları / Radyo Düğmeleri / QR Code / Barkod / Çapraz Çizgi Tablosu / Denklem Başlığı / Görüntü Başlık / Tablo başlığı / Çoklu Resimler / Daha fazlasını şurada keşfedin: Grup Ekle...
🔍 Hassas Seçimler: Nokta tespiti belirli sayfalar / tablolar / şekiller / başlık paragrafları / Gezinmeyi şununla geliştirin: Daha Özellikleri seçin...
⭐ Yıldız Geliştirmeleri: Herhangi bir konuma hızla gidin / tekrarlanan metni otomatik olarak ekle / belge pencereleri arasında sorunsuzca geçiş yapın / 11 Dönüşüm Aracı...
