Seçime Göre Resim Gösterme Ve Worde Aktarma

21/09/2020, 09:52

derzulya

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.
21/09/2020, 12:42

ozanakkaya

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.
21/09/2020, 12:49

derzulya

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:57

ozanakkaya

(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.
21/09/2020, 13:04

derzulya

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