Userforma belirli alanın resmini yapıştırmak

[halit3]

Form2,3,4, çalıştı. Form1 de aynı sorun var.

Form1 de alan seçeceksiniz ondan sonra kodu çalıştıracaksınız.

 

[Asri]

Form1 de alan seçeceksiniz ondan sonra kodu çalıştıracaksınız.

Şimdi oldu, bu ayrıntıyı atlamışım.

 

[Tevfik_Kursun]

Sayın Halit3 Hocam.
Çok teşekkür ederim, hemen deneyeceğim.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Halit3 Hocam,
Makro çok güzel çalışıyor. Çok teşekkür ederim.

Sub UserForm_Resim1()
Dim yol1
    yol1 = ActiveWorkbook.Path & "\TK_Foto\" & [B1] & ".jpg"
        With Application.FileDialog(msoFileDialogOpen)
            UserForm1.Show 0
            UserForm1.Picture = LoadPicture("")
            UserForm1.Picture = LoadPicture(.SelectedItems(1))
        End With
End Sub

Bu resmin üzerine şeffaf png bir resim getirmek istiyorum. Resimler aynı büyüklükte, birbirinin üzerine çakışacak şekilde.
UserForm olmadan yaptığım dosya çok büyüdü. Bu yaptığım dosya sadece 28 k. Teferruatı ile 100 k bile olmayacak. Örnek ekte. Çözümü varsa makbule geçer.
Saygılarımla

 

[halit3]

userformun
PictureSizeMode
özelliğini değiştir.

UserForm1.PictureSizeMode = fmPictureSizeModeStretch

 

[Tevfik_Kursun]

Sayın Halit3 Hocam,
.jpg olan resim geliyor ama .png bir türlü gelmedi. Sanırım resim olarak bile beğenmiyor!
Saygılarımla

 

[halit3]

Sayın Halit3 Hocam,
.jpg olan resim geliyor ama .png bir türlü gelmedi. Sanırım resim olarak bile beğenmiyor!
Saygılarımla

Bu uzantılı resimleri desteklemiyor.

 

[Tevfik_Kursun]

Sayın Halit3 Hocam,
İlginize çok teşekkür ederim. Dosyayı biraz büyütüp, resimleri jpg yapacağım. Sizi yordum ama, 84 nolu mesajdaki makroda eksik var mı? Bazen resim getiremiyor.
Saygılarımla

 

[halit3]

evet eksik var

Sub UserForm_Resim1()
Dim yol1
    yol1 = ActiveWorkbook.Path & "\TK_Foto\" & [B1] & ".jpg"
        With Application.FileDialog(msoFileDialogOpen)
            UserForm1.Show 0
            UserForm1.Picture = LoadPicture("")
            UserForm1.Picture = LoadPicture(yol1)
        End With
End Sub

 

[Haluk]

Tevfik Bey, bilgi için söylüyorum ...... arkası transparan PNG formatındaki resimler, yine aynı şekilde Userform üzerinde görüntülenebilir....

.

 

[Tevfik_Kursun]

Sayın Halit3 Hocam,
Şimdi düzeldi. İlginize çok teşekkür ederim.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
İkinci resim olarak mı? UserForm'a jpg formatında dosyayı alıyorum. Bu resmin üzerine saydam png formatında resim yüklemek istiyorum.
Saygılarımla

 

[Korhan Ayhan]

@Tevfik_Kursun,

Benim eklediğim dosyayı açın.
VBA editörüne geçin.
UserForm1 üzerinde çift klik yaparak kod bölümüne geçin.
F8 tuşuna basarak kodu adım adım çalıştırın. Sonra hata verince o bölümün resmini paylaşınız.

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
F8 ile gidince sorunsuz yüklendi. Buttona basınca 1004 hatasını verdi.
Saygılarımla

 

[Korhan Ayhan]

Bu durumdayken debug dediğinizde sizi nereye götürüyor.

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
Debug dediğinizde aşağıdaki durum oluyor. İç tarafa girdiğinizde hiç bir yeri sarı görmüyorsunuz. İsterseniz makinemi size açabilirim.
Saygılarımla

 

[Haluk]

Tevfik Bey, aşağıdaki resimde belirtildiği gibi transparan/saydam PNG UserForm'a eklenebilir demek istiyorum....

Not: Sayfadaki resimlerin olduğu hücrelerdeki renkler (sarı, gri, pembe, mavi), PNG formatındaki resimlerin değil, hücrelerin kendi dolgu renkleridir.



.

 

[halit3]

png uzantılı dosyalardan resim almak için Form Aç 4 komut düğmesini kullan

 

[halit3]

Korhan Bey
kod resimi eklemekte geç kalıyor herhalde bir kaç saniye bekletmek gerekebilir.

 

[halit3]

Korhan Bey Kodun bu bölümünde hatayı veriyor.

Set Resim = Selection
         With Resim
            .Width = Genislik
            .Height = Yukseklik
         End With