Worde toplu resim ekleme

[flu58]

Worde 800 tane resim eklemek istiyorum ama boyutunun yükseklik:8 genişlik 5,5 olacak şekilde olması istiyorum bunu nasıl yapabilirim yardımcı olursanız çok sevinirim.

 

[muhasebeciyiz]

Sub GenislikAyarla2()

genislik = 5.5
yukseklik = 8

With ActiveDocument
For i = 1 To .InlineShapes.Count
With .InlineShapes(i)
.Height = CentimetersToPoints(yukseklik)
.Width = CentimetersToPoints(genislik)
End With
Next i
End With
End Sub

Makro çalıştırma işlemleri için ;
wordde ya da diğer ofis programlarında
ALT+F11 e bas
menüden Insert / Module
açılan kod penceresine kodu ekle
word de makro çalıştırmak için ALT+F8 e bas makro adını seç çalıştır tıkla

 

[flu58]

çok teşekkür ederim yaptım ancak en 5,5 olmasına rağmen yüksekliği daha farklı çıkıyor daha doğrusu en oranına göre otomatik veriyor