Makro ile word e resim ekleme

[mrwarrior]

Makro ile word dosyası oluşturup iki sutuna bölerek çalıştığı klasördeki(hangi klasörde diye sorabilirde) tüm resimleri(Genişlikte en boy oranı sabit kalmak şartıyla resimleri 9 cm olacak şekilde yeniden boyutlandırabilirde);

1)
Resim
2)
Resim diye
..

ekleyecek bir makroya ihtiyacım var. Genelde denemeleri bu şekilde hazırlıyorum. Bunu otomatik olarak yapabilirsem denemelerimi hazırlamam çok kolay olur. Çok şey istedim ama Şimdiden teşekkür ederim.

 

[Asri]

dosya.tc yada dosya.co ve dosya eki olarak örnek dosya eklerseniz.
Daha hızlı cevap alırsınız.

 

[tahsinanarat]

Linki inceleyin, bir fikir verebilir

http://www.excel.web.tr/f51/word-toplu-resim-ekleme-sorunu-ozuldu-t123244.html

 

[mrwarrior]

Elimde herhangi bir dosya olmadığı için ekleme yapamıyorum.Kendim bi kaç deneme yapıp daha sonra sizden yardım istesem daha doğru olur sanırım. En azından istediğim şeyler daha anlaşılır olur. İlginiz için teşekkürler şimdiden.

 

[mrwarrior]

Merhaba. Düzenleme kısmını biraz kendim yaptım. Şimdi istediğim bir klasördeki resimlerin hepsini word e atması. Makro word e ait olacak. Word dosyası açıldığında çalıştır dediğimde kendi ile aynı klasördeki resimlerin hepsini word dosyasının içine alacak. Acaba bunu nasıl yapabiliriz acaba?

 

[halit3]

Ekli dosyada resimler önce excele alınıyor sonra word dosyasına kayıt yapılıyor.

 

[Mahmut Bayram]

Linki inceleyin, bir fikir verebilir

http://www.excel.web.tr/f51/word-toplu-resim-ekleme-sorunu-ozuldu-t123244.html

Yukarıdaki linkteki kodlar word'de direk ekliyor.

Sub InsertFormatedPicture()
yol = ThisDocument.Path & "\"
Dosya = Dir$(yol & "*.jpg")
a = 1
Do While Dosya <> ""
  'Selection.InsertCaption Label:="Şekil", TitleAutoText:="", Title:="Resim Başlığı", Position:=wdCaptionPositionAbove, ExcludeLabel:=0
  Selection.TypeText Text:=Chr(13)
  Selection.InlineShapes.AddPicture FileName:=yol & Dosya, LinkToFile:=False, SaveWithDocument:=True
  Selection.TypeText Text:=Chr(12)
Dosya = Dir$
Loop
End Sub

 

[halit3]

Mesajlar tarafımca silindi

 

[halit3]

mesajlar tarafımca silindi

 

[mrwarrior]

İlginiz için teşekkürler. Deneme fırsatım olamamıştı işlerimden dolayı. Çeşitli çözüm yolları için teşekkürler. İşime en yarayanı Mahmut Bayram arkadaşınki gibi duruyor. Ancak inceledikten sonra kesin sonucu söylerim. Teşekkür ederim herkese tekrar.

 

[Tevfik_Kursun]

Merhaba Halit3 hocam,
1- Sanırım bir problem var. Bir kaç gündür Tüm Kodu Seç düğmesine bastığınızda ana sayfaya geçiyor.
2- Hem 6. mesajdaki örneği denedim, hem de 9. mesajdaki makroyu. Her ikisi de klasördeki .jpg ile biten dosyaları çekemedi ve 9. mesajdaki makro ekli resimdeki hata mesajını verdi (Adsız1.jpg). Klasörün içi (Adsız2.jpg).
Neden olabilir?
Saygılarımla

 

[halit3]

Merhaba Halit3 hocam,
1- Sanırım bir problem var. Bir kaç gündür Tüm Kodu Seç düğmesine bastığınızda ana sayfaya geçiyor.
2- Hem 6. mesajdaki örneği denedim, hem de 9. mesajdaki makroyu. Her ikisi de klasördeki .jpg ile biten dosyaları çekemedi ve 9. mesajdaki makro ekli resimdeki hata mesajını verdi (Adsız1.jpg). Klasörün içi (Adsız2.jpg).
Neden olabilir?
Saygılarımla

Mesajlarımı aşağıdaki linkten takip edebilirsiniz.

http://www.excel.web.tr/f48/makro-i...eki-resimleri-eklemek-t163908.html#post892456