[Yardım]  Multipage Sayfalarına Resim Nesnesi Eklemek

Çoklu sayfa nesnesi. Nesne üzerindeki sayfa sayıları arttıralabiliyor.

Multipage Sayfalarına Resim Nesnesi Eklemek

İleti#1)  tanselp » 26 Tem 2013 17:12

Herkese selam ,
Elimde 7 sayfası olan bir multipage nesnesi var ve ben her sayfasına o sayfa başlığı ile ilgili resim eklemek istiyorum.
Tüm resmleri hazırladım ancak UserForm_Initialize olayında her sayfa için bu resimleri yüklemeyi başaramadım.
Örn:
Image1.Picture = LoadPicture("C:\Users\TANSELP\Desktop\IVIR ZIVIR\cool1300_V2.jpg") Çalışıyor
Image2.Picture = LoadPicture("C:\Users\TANSELP\Desktop\IVIR ZIVIR\shelf.jpg") Çalışmıyor

Komut satırının başına sayfa ismi mi belirtmek lazım ne yapacağımı da bilemedim.
Daha önce hiç "Multipage" nesnesi ile de çalışmamıştım.

Yardımcı olursanız sevinirim.

Saygılarımla
Tansel POLAT
Kullanıcı avatarı
tanselp
Siteye Alışmış
 
Adı Soyadı:TANSEL POLAT
Kayıt: 03 Haz 2009 13:50
Konum: MANİSA
Meslek: AR-GE Proje Lideri
Yaş: 41
İleti: 154
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MANİSA/MERKEZ



Cevap: Multipage sayfalarına Resim nesnesi eklemek

İleti#2)  Ozan İLGÜN » 26 Tem 2013 17:36

Merhaba
Dosyanızın bir örneğini bizimle paylaşırsanız daha çabuk yardımcı oluruz.
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2574
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Multipage sayfalarına Resim nesnesi eklemek

İleti#3)  Enes Recep BAĞ » 26 Tem 2013 18:40

Tansel Bey uzun bir aradan sonra merhaba, hoş geldiniz.
Bunun için aşağıdaki kodları yazdığınızda her sayfaya ayrı ayrı resimler gelmeli.

Kod: Tümünü seç
Private Sub UserForm_Initialize()
Image1.Picture = LoadPicture("C:\Users\TANSELP\Desktop\IVIR ZIVIR\Resim1.jpg")
Image2.Picture = LoadPicture("C:\Users\TANSELP\Desktop\IVIR ZIVIR\Resim2.jpg")
Image3.Picture = LoadPicture("C:\Users\TANSELP\Desktop\IVIR ZIVIR\Resim3.jpg")
Image4.Picture = LoadPicture("C:\Users\TANSELP\Desktop\IVIR ZIVIR\Resim4.jpg")
End Sub


Dikkat edilmesi gerekenler;
* Image nesnesinin adı
* Adres yolu
* Resim uzantısı ve adı
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8074
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Multipage sayfalarına Resim nesnesi eklemek

İleti#4)  Tarkan VURAL » 26 Tem 2013 19:19

Şöyle de deneyebilirsiniz:

Kod: Tümünü seç
Application.Screenupdating = false
Multipage1.Value=0
Image1.Picture = LoadPicture("C:\Users\TANSELP\Desktop\IVIR ZIVIR\Resim1.jpg")
Multipage1.Value=1
Image2.Picture = LoadPicture("C:\Users\TANSELP\Desktop\IVIR ZIVIR\Resim2.jpg")
Multipage1.Value=2
Image3.Picture = LoadPicture("C:\Users\TANSELP\Desktop\IVIR ZIVIR\Resim3.jpg")
Multipage1.Value=3
Image4.Picture = LoadPicture("C:\Users\TANSELP\Desktop\IVIR ZIVIR\Resim4.jpg")
Multipage1.Value=0
Application.Screenupdating = true
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26678
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum MultiPage

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe