Word de Tablo'ya Resim Sığdırma!

[pekerl]

Arkadaşlar Merhaba!
Benim sorum siz değerli forum kullanıcılarına basit gelebilir ama ben yapamadım!
Sorun şu;
Ben word de bir tablo çiziyorum.Bu tablonun içerisine resim ekliyorum!Ama tablonun boyutu her defasında otomatik olarak resim boyutuna bağlı olarak büyüyor!Bense bunu istemiyorum.Çizdiğim tablonun içerisine resmi boyutu ne olursa olsun sığdırmak istiyorum.Yani tablo boyutu kadar resim boyutlanacak!
Bunu böyle makro olarak kaydedicem!Hep öyle kalır değilmi?Ayrıca tablo içerisine eklenen yazılar içinde aynı şeyler geçerlimidir?Yani resim olayında ki mantık!
Yardımlarınız için şimdiden çok teşekkür ediyorum!
Saygılarımla;

 

[Haluk]

1 adet resim için örnek aşağıdadır.

Bundan yararlanarak gerisini siz halledersiniz umarım ...

MS Word belgesindeki tabloda boş bir hücreye imleci konumlandırın ve daha sonra aşağıdaki prosedürü çalıştırın (resim dosyasını yolunu kendinize göre değiştirmeyi unutmayın);

Koddaki resim boyutlarını da istediğiniz gibi ayarlayın ...

Sub Test()
    Dim MyPic As String
    Dim MyObj As Object
    MyPic = "[B][COLOR=red]D:\Documents and Settings\Raider\My Documents\My Pictures\JackSparrow.jpg[/COLOR][/B]"
    Set MyObj = ActiveDocument.InlineShapes.AddPicture(MyPic, False, True)
    With MyObj
        .Height = [B][COLOR=blue]50[/COLOR][/B]
        .Width = [COLOR=blue][B]50[/B][/COLOR]
    End With
End Sub

 

[pekerl]

Peki abi yeni bir tablo oluştursak ve tablonun boyutunu biz belirlesek ve resmi otomatik olarak oraya nasıl atabiliriz!
Teşekkürler!