makro ile resim

[yalovam77]

merhaba

sayın üsdatlarım ek siteden aldığım örnekte makro ile resmi hücreye getirmede gif uzantılı resimler geliyor jpeg uzantılı resimleri nasıl getirir yardımcı olurmusunuz

 

[hamitcan]

BİLGİLER sayfasında, G sütunundaki yolu düzenlemelisiniz.

 

[mancubus]

bilgiler sayfası G sütunundaki hücrelere dosya ismini yazdığınızda olmuyor mu?

 

[halit3]

merhaba

sayın üsdatlarım ek siteden aldığım örnekte makro ile resmi hücreye getirmede gif uzantılı resimler geliyor jpeg uzantılı resimleri nasıl getirir yardımcı olurmusunuz

Alternatif olarak

1-Resimler mutlaka dosyanın yanında (Resimler) klasörünün içinde olmalı
2-Bilgiler sayfasındaki B sutünundaki isimlerle Resimler klasörünün içindeki resim isimleri aynı olmalı
3-kaydırıcı düğme ile resimleri getirebilirsiniz.
4-75 adet uzantılı resimleri gösteriyor.
5-G sutünuna gerek kalmıyor.

 

[yalovam77]

üsdatlarım özür dilerim gif resimleri geliyor ama jpeg formatındaki resmi bir türlü getirtemedim. bu defa ekte jpeg formatındaki resmide ilave ederek gönderiyorum. belge ekteki haliyle yani açılır liste ile çalışanı lazım yardım edermisiniz. teşekkür ederim.

 

[halit3]

üsdatlarım özür dilerim gif resimleri geliyor ama jpeg formatındaki resmi bir türlü getirtemedim. bu defa ekte jpeg formatındaki resmide ilave ederek gönderiyorum. belge ekteki haliyle yani açılır liste ile çalışanı lazım yardım edermisiniz. teşekkür ederim.

Sorunuzu alıntı yaparak gönderirseniz iyi olur.

4 nolu mesajdaki dosyayı kontrol ettinizmi.?

 

[yalovam77]

Alternatif olarak

1-Resimler mutlaka dosyanın yanında (Resimler) klasörünün içinde olmalı
2-Bilgiler sayfasındaki B sutünundaki isimlerle Resimler klasörünün içindeki resim isimleri aynı olmalı
3-kaydırıcı düğme ile resimleri getirebilirsiniz.
4-75 adet uzantılı resimleri gösteriyor.
5-G sutünuna gerek kalmıyor.

üsdadım merhaba sizin eklediğiniz dosyayı inceledim kayan liste ile olmayacak benim istediğim Sayfa1 de bir açılır liste olacak bu listeden seçtiğim ismin resmi imaj nesnesine gelecek. bununla ilgili daha önce siteden aldığım bir örnekte var onuda ekliyorum o tam istediğim gibi ama kodları çalıştıramadım bir bakabilirseniz size zehmet veriyorum kusura bakmayın.

 

[halit3]

Ekli dosyanızı kontrol ediniz.

 

[yalovam77]

Ekli dosyanızı kontrol ediniz.

halit hocam istediğim gibi olmuş teşekkür ederim. sadece işlem tamam uyarısı olmasa çok iyi olur işlem tamam uyarısını kaldırmamız mümkünmü iyi çalışmalar dilerim

 

[halit3]

Kodun en sonundaki bunu siliniz.

MsgBox "Listeleme Yapıldı.."

 

[yalovam77]

çok teşekkür ederim hocam çok işime yaradı. iyi çalışmalar

 

[halit3]

çok teşekkür ederim hocam çok işime yaradı. iyi çalışmalar

İyi çalışmalar

 

[yalovam77]

merhaba

halit hocamın yukarıdaki düzenlemeleri sonucu verdiği kodu kullandım. ekte gönderdiğim dosyada kişinin adını açılır listeden seçtiğimde resim otomatik gelmiyor makro çalıştır dediğimde geliyor acaba nerede hata yaptım yardımcı olabilirmisiniz. (ekte gönderdiğim dosya memur sicili için forumda örnek var ama benim yaptığım bir çalışmanın parçası olacak bu yüzden yeniden düzenliyorum.) teşekkürler

 

[halit3]

hata kırmızı yerde

Private Sub Worksheet_Change(ByVal Target As Range)
'sayfadaki hücrelerde bir değişiklik olduğunda image1 nesnesine Resim çağırır
If Intersect(Target, Range("b3")) Is Nothing Then Exit Sub
Image1.PictureSizeMode = fmPictureSizeModeZoom
resimekle
End Sub

kırmızı yeri I5 yapıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
'sayfadaki hücrelerde bir değişiklik olduğunda image1 nesnesine Resim çağırır
If Intersect(Target, Range("I5")) Is Nothing Then Exit Sub
Image1.PictureSizeMode = fmPictureSizeModeZoom
resimekle
End Sub

 

[Emir Hüseyin Çoban]

Merhaba,

Alternatif olarak aşağıdaki kodları çalışma sayfasının kod bölümüne yapıştırarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
'sayfadaki hücrelerde bir değişiklik olduğunda image1 nesnesine Resim çağırır
Dim eski As Integer
If [ı5] <> eski Then Call resimekle
Image1.PictureSizeMode = fmPictureSizeModeZoom
On Error GoTo son
eski = [ı5].Value
son:
End Sub

 

[yalovam77]

teşekkür

hocam teşekkür ederim yardımlarınız için