Word'de bütün fotoğrafları aynı boyuta getirme nasıl yapılır?

7 ay önce önce ogz tarafından "Word'de bütün fotoğrafları aynı boyuta getirme nasıl yapılır?" sorusuna cevap yazılmış.

Word belgenizdeki resimler farklı boyutlarda ve hepsinin aynı boyutta olmasını istiyorsanız aşağıda belirtilen iki yöntemi kullanarak bunu nasıl yapacağınızı görelim.

1.Yöntem: Makroları Kullanma

Makrolar, tekrar tekrar gerçekleştirmemiz gerektiren belirli bir görevi otomatik hale getirir. Gerçekleştirmek istediğiniz adımları kaydederek veya bir dizi talimat yazarak makro oluşturabilirsiniz.

MS Word'deki tüm resimleri yeniden boyutlandırmamız gerektiğinden, Makrolardan yardım alıyoruz. Fotoğrafları yeniden boyutlandırmak için kod yazarak başlayacağız.

1. Adım: Tüm resimleri aynı boyutta yapmak istediğiniz Word dosyasını açın.

2. Adım: Dosyadaki ilk fotoğrafı seçmek için tıklayın. Ardından, üstteki Görünüm sekmesini tıklayın.

Microsoft Word'deki Tüm Resimleri Yeniden Boyutlandır

3. Adım: Makrolar'ı tıklayın.

Microsoft Word'deki Tüm Resimleri Yeniden Boyutlandır

4. Adım: Bir açılır pencere açılacaktır. Makro adının altındaki kutuya bir ad yazın. Her hangi bir ad verebilirsiniz. Yada anlaşılması ve aşağıdaki kodları kullanmak için, buna "resize" diyebilirsiniz.

Ardından Oluştur'a tıklayın.

Microsoft Word'deki Tüm Resimleri Yeniden Boyutlandır

5. Adım: Yeni bir Microsoft Visual Basic for Applications penceresi açılacaktır. Mevcut kodu seçin ve silin.

Microsoft Word'deki Tüm Resimleri Yeniden Boyutlandır

6. Adım: Ardından aşağıdaki kodlardan birini kopyalayıp pencereye yapıştırın.

1. Tip Kod: Yüksekliği ve genişliği piksel cinsinden değiştirmek istiyorsanız aşağıdaki kodu kullanın. 500 ve 600 değerlerini kendi değerlerinizle değiştirin.

Sub resize()
Dim i As Long
With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i)
.Height = 500
.Width = 600 End With Next i
End With
End Sub

2. Tip Kod: Boyutu inç olarak değiştirmek istiyorsanız bunu kullanın. 2 değerini değerinizle değiştirin.

Sub resize()
Dim i As Long
With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i)
.Height = InchesToPoints(2)
.Width = InchesToPoints(2) End With Next i
End With
End Sub

3. Tip Kod: Görüntüleri ölçeklendirmek istiyorsanız, aşağıdaki kod size yardımcı olacaktır. 30 ve 40'ı tercih ettiğiniz değerlerle değiştirin.

Sub resize()
Dim i As Long
With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 30 .ScaleWidth = 40 End With Next i
End With
End Sub

7. Adım: Kopyalandıktan sonra, Microsoft Visual Basic penceresini kapatın.

8. Adım: Görüntü seçiliyken, Görünüm sekmesinin altındaki Makrolar'ı tekrar tıklayın.

9. Adım: Makrolar penceresi açılacaktır. Makronuz seçiliyken çalıştır'ı tıklayın.

Çalıştır düğmesine basar basmaz, tüm görüntülerin boyutunun değiştiğini göreceksiniz.

2.Yöntem: Klavyedeki Fonksiyon Tuşunu Kullanma

Yalnızca klavyenizdeki bir düğmeyi tıklatarak Microsoft Office uygulamalarında son yaptığınız işlemi tekrarlayabileceğinizi biliyor muydunuz? Bu tuş Windows'ta F4 ve Mac'te Y tuşudur.

İPUCU: Bazı klavyelerde, fn ve F4 tuşlarına birlikte tıklamanız gerekebilir.

Bu yöntemin adımları şunlardır:

1.Adım: Resimlerinizi içeren Word belgesini açın.

2.Adım: İlk görüntüyü sağ tıklayın ve Boyut ve Konum'u seçin.

3.Adım: Açılan Düzen kutusunda Boyut sekmesini tıklayın. Ardından, En boy oranını kilitle'nin yanındaki kutunun işaretini kaldırın. Verilen kutulara görüntülerin yüksekliği ve genişliği için gerekli değerleri girin. Tamam'a tıklayın.

4. Adım: Seçilen görüntü için boyutun değişeceğini göreceksiniz. Şimdi diğer görüntüleri tek tek tıklayın ve her biri için F4'e (veya Windows'ta fn + F4'e) veya Y tuşuna (macOS'ta) basın. Bunu yapmak, 3. adımda yapılan işlemi tekrarlar.

Bu cevap faydalı oldu mu?

Cevap Yaz

Soruya cevap yazabilmek için üye girişi yapın yada üye olun.