Merhaba arkadaşlar.

Formdaki bilgileri girdikten sonra hazırla dediğimizde worde aktarıyor sorunsuz çalışıyor.

ilaveten yapmak istediğim şu

herhangi bir tabloyla ilişkisi olmayan formda "anlaşmayı yapan" açılır kutusundaki seçeneklere göre a, b, c resimlerini göstermek ve bu resimlerden hangisi görünüyorsa onu hazırla dediğimizde word dosyasında da göstermesini istiyorum.

çalışma ektedir.

Merhaba, eklediğiniz uygulamada tablo olmadığı için açılan kutuda hangi veriler görünüyor bilmiyorum.

taslak isimli word belgesine resim adında yerimi ekleyip,

     .GoTo what:=wdGoToBookmark, Name:="not"

     .TypeText [not]

kodunun altına;

     .GoTo what:=wdGoToBookmark, Name:="resim"

     GResimYolu = CurrentProject.Path & "\Resimler" & "\a.jpg"

     Set newPicture = WordApp.Selection.InlineShapes.AddPicture(FileName:=GResimYolu, LinkToFile:=False, SaveWithDocument:=True)

     newPicture.LockAspectRatio = msoTrue

     newPicture.Height = 150

     newPicture.Width = 100

Kodu eklerseniz a.jpg dosyasını word belgesine ekleyecektir.

a.jpg yerine açılan kutudaki veriye göre tanımlama yaptırabilirsiniz.

Yok anlatamadım. Sadece A resmi değil. anlaşmayı yapan açılır kutusunda a b c var. hangisi seçilirse o resim gelsin istiyorum.

(21/09/2020, 12:49)derzulya yazdı: Yok anlatamadım. Sadece A resmi değil. anlaşmayı yapan açılır kutusunda a b c var. hangisi seçilirse o resim gelsin istiyorum.

Ben doğru anladım, mesajımın sonunda "a.jpg yerine açılan kutudaki veriye göre tanımlama yaptırabilirsiniz." şeklinde ibare mevcut.

açılan kutudaki veri elma ise elma, armut ise armut resminin gönderilmesi için

 GResimYolu = CurrentProject.Path & "\Resimler" & "\a.jpg"

---

GResimYolu = CurrentProject.Path & "\Resimler" & "\" & me.anlasmayi_yapan & ".jpg"

Benzeri kod yazılacak.

tamamdır ben anlamamışım teşekkür.