Word Çoklu Resim Boyutu

[goku1453]

Merhaba arkadaşlar,

Konuyu açmadan önce baya araştırdım.

Word dosyasında çoklu resimler mevcut bu resimlerin hepsini aynı boyut haline getirmek istiyorum. Sitede sadece belli oranda hepsini küçültme bulabildim.

Bununla ilgili yardımcı olan olursa çok mutlu olurum.

 

[leumruk]

Selamlar,
Aşağıdaki makro koduyla resimleri toplu olarak aynı boyuta getirebilirsiniz.

Sub dene()
hgt = 150
For Each wrsm In ActiveDocument.InlineShapes
    With wrsm
        .LockAspectRatio = msoTrue
        .Height = hgt
    End With
Next
End Sub

 

[goku1453]

çok teşekkür ederim çok işeme yaradı.

Selamlar,
Aşağıdaki makro koduyla resimleri toplu olarak aynı boyuta getirebilirsiniz.

Sub dene()
hgt = 150
For Each wrsm In ActiveDocument.InlineShapes
    With wrsm
        .LockAspectRatio = msoTrue
        .Height = hgt
    End With
Next
End Sub

 

[leumruk]

çok teşekkür ederim çok işeme yaradı.

Rica ederim...