Note: The other languages of the website are Google-translated. Back to English

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:

doc görüntüleri ayarla 1

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 Sub

4. 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 kârimizin %50. Tıkladıktan sonra kârimizin %25, tüm resimlerin% 50 boyutunda olduğunu göreceksiniz. Ekran görüntüsüne bakın:

doc görüntüleri ayarla 3

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:

doc görüntüleri ayarla 4

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

Kutools for Word: 100'den fazla kullanışlı Word eklentisi ile 60 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!


Önerilen Word Üretkenlik Araçları

 

Kutools For Word - Word İçin 100'den Fazla Gelişmiş Özellik,% 50 Zaman Kazanın

  • Karmaşık ve tekrarlanan işlemler saniyeler içinde tek seferlik işlem yapılabilir.
  • Klasörler arasında birden çok görüntüyü aynı anda Word belgesine ekleyin.
  • Birden çok Word dosyasını klasörler arasında istediğiniz sırada birleştirin ve birleştirin.
  • Geçerli belgeyi başlık, bölüm sonu veya diğer kriterlere göre ayrı belgelere bölün.
  • Dosyaları Doc ve Docx, Docx ve PDF, ortak dönüştürme ve seçim için araçlar koleksiyonu vb. Arasında dönüştürün ...
Yorumları sıralama ölçütü
Yorumlar (6)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
paranızı biriktirin ve bu makroyu çalıştırın: Dave Sub'a Kredi resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With Alt Alt
Bu yorum sitedeki moderatör tarafından en aza indirildi
paranızı kaydedin ve bu makroyu çalıştırın: Dave Sub'a Kredi resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.C ount With .InlineShapes(i ) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End End Sub ile Harika!!! Paramı ve zamanımı kurtardın. Çok teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kodu nereye koyacağım?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Windows 365'te bir görüntü yer tutucu/damlalık/otomatik boyutlandırma özelliğinin mevcut olup olmadığını bilen var mı? Microsoft sohbet yardımı çok yararsız olduğundan, bu konuda nereye bakılacağı veya yardım bulunacağı hakkında hiçbir fikrim yok. Herhangi bir ipucu çok takdir edilecektir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir word belgesindeki tüm resimleri aynı genişliğe yeniden boyutlandırmam gerekiyor, ancak resimleri deforme etmemeliyim. bu yüzden onları aynı genişliğe ölçeklendirin. Bu bir makro aracılığıyla mümkün mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Belgenizi .docx olarak kaydederseniz, onu zip arşivi olarak açabilirsiniz. Tüm resimlerin bulunduğu medya klasörü olacak (benimki PNG resimlerine sahipti). Daha sonra yeniden boyutlandırma, renk derinliğini azaltma vb. toplu dönüştürmeleri gerçekleştirmek için IrfanView, XnViewMP, FastStone Viewer gibi programları kullanabilirsiniz. Resimlerinizi tekrar zip'e paketleyin ve docx olarak yeniden adlandırın. Örneğin, ekran görüntüleriyle dolu docx'imde renk sayısını 8'e düşürmem gerekiyordu, bu da belgeleme amaçları için yeterli. 10MB'lık dokümanım işlendikten sonra 1.8MB'lık doküman haline geldi, bu nedenle tasarruf önemli olabilir. Çok fazla bozulma/işleme vb. sonrasında resimleri geri yüklemek istemeniz durumunda her zaman orijinal belgenizi kaydedin.
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar