VBA ile resim gösterme ve değiştirme

Mehmet Eser · **Kayıt Tarihi:** 17.05.2008

Merhaba,

ofis uygulamalarında vb 6 kullanıyoruz zaten. ofis belgesi ile aynı dizinde bulunan bir resmi yol bilgisinden yola çıkarak göstermek için belgeye bir resim kutusu eklemek ve bir metodu ile resmi yüklemek gerek sanırım. Cool

sandığım kadarıyla bu resim denetimi ve loadpicture metoduyla oluyor. önceleri vb kullanmıştım ama bilgilerim tarih oldu şimdi başaramadım. Visual Basic bilenlerden ricam bir Word belgesinde hangi denetim ve metoduyla bunu halledebiliriz? Eek

beab05 · 22-06-2010, 14:14

Merhaba;

Mehmet Bey, ben ne istediğinizi anlayamadım ama eğer dediğiniz Word belgesine resim göndermek ise bunu Taruz un daha önce yaptığını hatırlıyorum sanki Wink

Tam emin de değilim Wink

Mehmet Eser · 22-06-2010, 22:37

Hani Access formlarında resim göstermek için denetim ekleyip daha sonra buna vba ile resim atıyoruz. Aynı denetimi Word altında kullanmakla ilgili idi. Denetim aynı.

Word ile aynı dizinde resimler var. Şimdi word belgesine resmin yol bilgisini bildirip resim nesnesi ile görüntülemk istiyorum. Yani resmi direk eklemek değil yol bilgisi ile bağlamak.

Aslında belki access kodlarını kopyalasam olur mu? Bir deneyeyim.

modalı · 23-06-2010, 20:27

Sayın Mehmet Eser,

Visual Basic
Dim path As String
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
 
objSelection.TypeText "Resim öncesi yazı."
 
path = ActiveDocument.path & "\logo.png"
Set colShapes = objDoc.Shapes
Set objShape = colShapes.AddPicture(path)

kodlarıyla resim ekleyebilirsiniz.

Mehmet Eser · 24-06-2010, 14:40

varolan bir word belgesi için nasıl olmalı? Varolan word belgesinde zaten bir sürü parağraf var ben sadece üst kısma access'den bilgileri çekeceğim resimlerle birlikte. Bu yüzden yeni word belgesi değil de varolan bir belgede istenilen yere eklemme lazım.

kusura bakmayın geç farkettim cevabı, çok teşekkür ediyorum.

Visual Basic
Set colShapes = objDoc.Shapes
Set objShape = colShapes.AddPicture(path)

bu kodları varolan bir belgede kullanabilir miyiz? Aynı klasörde bir sürü resim olacak ve her kişi için bir resim gelecek. Aslında yapacağım şey şu: Access tablosunu sağ tıklayıp Word'le birleştireceğim. Adres mektup birleştirme ya da yayınlama hangisi uygun ise. O zaman Word'e resim yolu gidiyor ama resim gidemiyor. İşte ben de o resim yolunu word içinde resme çevirmek istiyorum hazır belgede.

Sağolun.

Mehmet Eser · 24-06-2010, 23:42

Şimdilik sorunu basit mantıkla ve iki aşamalı oalrak çözdüm. İstediğim gibi olmaması can sıkıcı ama ilerde mutlak döneceğim aynı konuya. Bazen kendimi ve sizleri yormak hoşuma gitmiyor.

İstediğim şey şu idi: Her öğrenci için ad, soyad, no ve resim basılı yazılı kağıtları çıkarmak. Madem böyle uzayacak o zaman ben de sadece üst kısımda resimli yazılı üst bilgisi olan rapor bastıracağım önce. Sonra Word'de hazırlanmış yazılıları yazdıracağım aynı kağıtlara. Sayfanın başka yerlerinde böyle şeylere ihtiyacım olmadığı müddetçe sorun değil ama ilerde bu teknik başka konularda gerekebilir. O zamana kadar Allah kerim Running

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL