[Yardım]  Resim Formatı Sorunu

Resim nesnesi

Resim Formatı Sorunu

İleti#1)  kartal1171 » 21 Mar 2019 10:54

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "G5" Then Exit Sub
On Error GoTo Çıkış
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Resim\" & Target.Value & ".jpg")
Çıkış:
End Sub

Yukarıdaki formülle Resim dosyamdaki jpg uzantılı resimleri Excel sayfamda görüntülüyorum ancak resim formatı jpeg , bmp veya başkası olunca resim gözükmüyor. Bu konuda yardımlarınızı istirham edecektim. Şimdiden teşekkürler.
Kullanıcı avatarı
kartal1171
 
Adı Soyadı:ibrahim kartal
Kayıt: 18 Mar 2012 14:13
Konum: Tokat
Meslek: Memur
Yaş: 47
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Tokat

Cevap: Resim Formatı Sorunu

İleti#2)  aslanvedat » 21 Mar 2019 11:16

Hocam sonuç mu göstermiyor yoksa hata mı veriyor peki ?
Kullanıcı avatarı
aslanvedat
Yeni Başlamış
 
Kayıt: 01 Mar 2019 11:20
Meslek: Bilgisayar Mühendisi
Yaş: 27
İleti: 77
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Başakşehir

Cevap: Resim Formatı Sorunu

İleti#3)  batur_00 » 21 Mar 2019 11:22

Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Resim\" & Target.Value & ".jpg") Kodundaki en sondaki resim dosya formatı adını değiştirmeniz gerekiyor bmp dosyası için .jpg kısmını .bmp olarak değiştirmeniz gerek.
Kullanıcı avatarı
batur_00
Siteye Alışmış
 
Kayıt: 05 Ekm 2014 22:39
Meslek: tekstil işçisi
Yaş: 43
İleti: 220
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa-Orhangazi

Cevap: Cevap: Resim Formatı Sorunu

İleti#4)  aslanvedat » 21 Mar 2019 11:24

batur_00 yazdı:Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Resim\" & Target.Value & ".jpg") Kodundaki en sondaki resim dosya formatı adını değiştirmeniz gerekiyor bmp dosyası için .jpg kısmını .bmp olarak değiştirmeniz gerek.


Döngü kurulmuş her zaman sabit formatta gelmiyor resimler isimler değişkene atanmış ama uzantı değişkene nasıl atanabilir ?
Kullanıcı avatarı
aslanvedat
Yeni Başlamış
 
Kayıt: 01 Mar 2019 11:20
Meslek: Bilgisayar Mühendisi
Yaş: 27
İleti: 77
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Başakşehir

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

Cevap: Resim Formatı Sorunu

İleti#5)  Ozan İLGÜN » 21 Mar 2019 11:25

ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 34
İleti: 2903
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Cevap: Resim Formatı Sorunu

İleti#6)  kartal1171 » 21 Mar 2019 14:42

aslanvedat yazdı:Hocam sonuç mu göstermiyor yoksa hata mı veriyor peki ?

Resimler sadece jpg. formatında ise gösteriyor, değilse göstermiyor. Ben istiyorum ki jpg.,jpeg.,bmp. gibi formatta olan resimleri de göstersin.
Kullanıcı avatarı
kartal1171
 
Adı Soyadı:ibrahim kartal
Kayıt: 18 Mar 2012 14:13
Konum: Tokat
Meslek: Memur
Yaş: 47
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Tokat

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Resim Formatı Sorunu

İleti#7)  batur_00 » 21 Mar 2019 19:04

Bu Kodu Deneyebilirmisiniz.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "G5" Then Exit Sub
On Error GoTo Cikis
Dim evn As Object
Set evn = CreateObject("scripting.filesystemobject")
Set Klasoryolu = evn.GetFolder(ThisWorkbook.Path & "\" & "Resim")

    For Each Dosya In Klasoryolu.Files
    dosyaadi = Mid(Dosya.Name, 1, InStrRev(Dosya.Name, ".", -1, 1) - 1)
        If dosyaadi = Target.Text Then
            goster = Klasoryolu & "\" & Dosya.Name
            Image1.Picture = LoadPicture(goster)
            Exit For
        End If
    Next Dosya
Cikis:
End Sub
Kullanıcı avatarı
batur_00
Siteye Alışmış
 
Kayıt: 05 Ekm 2014 22:39
Meslek: tekstil işçisi
Yaş: 43
İleti: 220
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa-Orhangazi

Cevap: Cevap: Resim Formatı Sorunu

İleti#8)  kartal1171 » 26 Mar 2019 09:29

şkşk şkşk Çok teşekkür ediyorum. Tam istediğim gibi oldu. Emeğinize sağlık.
batur_00 yazdı:Bu Kodu Deneyebilirmisiniz.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "G5" Then Exit Sub
On Error GoTo Cikis
Dim evn As Object
Set evn = CreateObject("scripting.filesystemobject")
Set Klasoryolu = evn.GetFolder(ThisWorkbook.Path & "\" & "Resim")

    For Each Dosya In Klasoryolu.Files
    dosyaadi = Mid(Dosya.Name, 1, InStrRev(Dosya.Name, ".", -1, 1) - 1)
        If dosyaadi = Target.Text Then
            goster = Klasoryolu & "\" & Dosya.Name
            Image1.Picture = LoadPicture(goster)
            Exit For
        End If
    Next Dosya
Cikis:
End Sub
Kullanıcı avatarı
kartal1171
 
Adı Soyadı:ibrahim kartal
Kayıt: 18 Mar 2012 14:13
Konum: Tokat
Meslek: Memur
Yaş: 47
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Tokat

Cevap: Resim Formatı Sorunu

İleti#9)  ayhan518 » 19 May 2020 18:18

Merhaba. Aynı sorunu bende yaşıyorum ama halledemedim.
resimYol = ThisWorkbook.Path & "\personel\"

resimler = Dir(resimYol & "*.*")
resim = 0
TextBox3.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_1"
TextBox4.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_2"
TextBox5.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_3"
TextBox6.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_4"
TextBox7.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_5"
While resimler <> ""
DoEvents
resimlerAd = Mid(resimler, 1, Len(resimler) - 4)
If resimlerAd = Me.TextBox3.Text Then
Me.Image1.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

If resimlerAd = Me.TextBox4.Text Then
Me.Image2.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

If resimlerAd = Me.TextBox5.Text Then
Me.Image3.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

If resimlerAd = Me.TextBox6.Text Then
Me.Image4.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

If resimlerAd = Me.TextBox7.Text Then
Me.Image5.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

resimler = Dir
Wend
If resim = 0 Then Me.Image1.Picture = LoadPicture(resimYol & "resimYok.jpg")
If resim = 0 Then Me.Image2.Picture = LoadPicture(resimYol & "resimYok.jpg")
If resim = 0 Then Me.Image3.Picture = LoadPicture(resimYol & "resimYok.jpg")
If resim = 0 Then Me.Image4.Picture = LoadPicture(resimYol & "resimYok.jpg")
If resim = 0 Then Me.Image5.Picture = LoadPicture(resimYol & "resimYok.jpg")



yukarıdaki kodu ListBox1 in click olayında kullanıyorum ve ListBoxt ta seçtiğim her personel sonrası ilgili personelin fotoğrafını alabiliyorum. Tabi fotoğraflar "jpg" formatında olursa. Ama bazı personelin fotoğrafı "png" formatında olduğu için bu personelde hata alıyorum. Bu kodu hem "jpg" hem de "png" formatlarındaki fotoğrafları getirebilecek şekilde nasıl güncelleyebiliriz?
Kullanıcı avatarı
ayhan518
Yeni Başlamış
 
Kayıt: 06 Şub 2019 16:15
Meslek: serbest
Yaş: 35
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/ nilüfer


Forum İmage

Online Kullanıcılar

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

Bumerang - Yazarkafe