Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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.
.rar sözleşme.rar (Dosya Boyutu: 189,75 KB | İndirme Sayısı: 9)
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#2
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.
Cevapla
#3
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.
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#4
(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.
Cevapla
#5
tamamdır ben anlamamışım teşekkür.
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task