+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Seçime Göre Resim Gösterme Ve Worde Aktarma (/konu-secime-gore-resim-gosterme-ve-worde-aktarma.html)
Seçime Göre Resim Gösterme Ve Worde Aktarma - derzulya - 21/09/2020
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.
RE: Seçime Göre Resim Gösterme Ve Worde Aktarma - ozanakkaya - 21/09/2020
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] .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 = 100Kodu eklerseniz a.jpg dosyasını word belgesine ekleyecektir.
a.jpg yerine açılan kutudaki veriye göre tanımlama yaptırabilirsiniz.
RE: Seçime Göre Resim Gösterme Ve Worde Aktarma - derzulya - 21/09/2020
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.
Re: Seçime Göre Resim Gösterme Ve Worde Aktarma - ozanakkaya - 21/09/2020
(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.
RE: Seçime Göre Resim Gösterme Ve Worde Aktarma - derzulya - 21/09/2020
tamamdır ben anlamamışım teşekkür.