Wordda resim boyutu

[sellami2005]

60-70 sayfa civarında word sayfam var. bunlarda resimler var. sayfaları küçültmek istiyorum. sayfalardaki resimleri teker teker uğraşmadan, hepsini aynı anda boyutlarını ayarlayabilir miyim

 

[leumruk]

60-70 sayfa civarında word sayfam var. bunlarda resimler var. sayfaları küçültmek istiyorum. sayfalardaki resimleri teker teker uğraşmadan, hepsini aynı anda boyutlarını ayarlayabilir miyim

Merhaba,
Bir makro yardımıyla istediğinizi yapabiliriz. İsteğinize göre bir kod geliştirdim. Aşağıdaki kodu word dosyanızın makro bölümüne kopyalayın ve makroyu çalıştırın. Karşınıza bir sorgu ekranı çıkacak. Çıkan ekrana resimleri küçültmek istediğiniz oranı yazın ve onaylayın.

Sub Makro1()
oran = InputBox("Resimler hangi oranda küçültülsün?", "Resim Küçültme", 10)
If oran = "" Then Exit Sub
If oran < 0 Or oran >= 100 Or IsNumeric(oran) = False Then
MsgBox "Lütfen 0-100 arasında bir değer girin?"
Exit Sub
End If
For Each rsm In ActiveDocument.InlineShapes
With rsm
hgt = rsm.Height - (rsm.Height * oran / 100)
wdt = rsm.Width - (rsm.Width * oran / 100)
.LockAspectRatio = msoTrue
.Height = hgt
.Width = wdt
End With
Next
End Sub

 

[sellami2005]

Teşekkürler sayın leumruk. Emeğinize sağlık. Tatbik edeceğim çalışmayı.

 

[leumruk]

Deneme yaparken küçülttüğüm resimleri yeniden büyütmek için -' leri + yapmıştım. Kodları düzeltmeden eklemişim. Kodu güncelledim. Kodu bu haliyle kullanın.
NOT: Eski şekli de resimleri büyütmeye yarar. Kaynak olarak bir kenarda bulundurabilirsiniz.

 

[rsrfsrsvd]

Merhaba leumruk !

Bu kodu Word 2013 te denedim aşağıdaki satırı sarı işaretliyor.

.LockAspectRatio = msoTrue

"Bu üyeye yatay satırda erişilemez" mesajı veriyor.

Bunu düzeltmek mümkün mü acaba, resimleri küçültmek için kullanmak istiyorum.

Hayırlı geceler.

 

[leumruk]

Merhaba,
O satırı silip deneyin.

 

[rsrfsrsvd]

Merhaba Sayın leumruk!
Öncelikle çok teşekkür ederim. O kadar çok işime yaradı ki anlatamam. Bu arada üstteki mesajınıza istinaden - leri + yaptım büyütmeyi de öğrendim sayenizde.
Dediğiniz gibi denedim olmadı bir alttaki satırın altındaki satırı işaretledi onu da sildim, bu defa çalıştı, kodun son şekli şudur:

Sub Makro1()
oran = InputBox("Resimler hangi oranda küçültülsün?", "Resim Küçültme", 10)
If oran = "" Then Exit Sub
If oran < 0 Or oran >= 100 Or IsNumeric(oran) = False Then
MsgBox "Lütfen 0-100 arasında bir değer girin?"
Exit Sub
End If
For Each rsm In ActiveDocument.InlineShapes
With rsm
hgt = rsm.Height - (rsm.Height * oran / 100)
wdt = rsm.Width - (rsm.Width * oran / 100)
.Height = hgt
End With
Next
End Sub

 

[leumruk]

Merhaba,
Kodu şu şekliyle bir daha dener misiniz?
.LockAspectRatio = msoTrue satırı resimlerin en ve boylarının aynı oranda küçülmesini ya da büyümesini sağlar. msofalse yaparsanız sadece boy değişir, en sabit kalır.

oran = InputBox("Resimler hangi oranda küçültülsün?", "Resim Küçültme", 10)
If oran = "" Then Exit Sub
If oran < 0 Or oran >= 100 Or IsNumeric(oran) = False Then
MsgBox "Lütfen 0-100 arasında bir değer girin?"
Exit Sub
End If
For Each rsm In ActiveDocument.InlineShapes
    With rsm
        hgt = rsm.Height - rsm.Height * oran / 100
        .LockAspectRatio = msoTrue
       ' .LockAspectRatio = msoFalse
        .Height = hgt
    End With
Next

 

[rsrfsrsvd]

Merhaba!
Denedim hocam True yaparsak eni küçülüyor, işlemi yapıyor ama hemen peşi sıra hata veriyor.
False yaparsak boyu küçülüyor yine hemen hata veriyor, ikisini de devre dışı bırakırsak doğru çalışıyor hata vermiyor.

İyi geceler...