Excel resim çağırma

[Kafkas]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhabalar Exteki Excele Resim klasöründen C15 hücresine Ad Soyad yazarak (ActiveX dDenetimi) Resim getirebilirmiyiz

 

B13 Doluysa

Makro ile Özet Tablo Güncelleme

[Ömer BARAN]

Alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılacak vba ekranında sağdaki boş alana aşağıdaki kodu yapıştırın.

Koddaki, fotoğrafların bulunduğu dizin bilgisini (yol) kendinize göre düzenlerseniz.
C15'deki ismi değiştirdiğinizde, ilgili dizinde C15'deki değer ile aynı adı taşıyan fotoğraf varsa Image1 nesnesine resim yüklenir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [[B][SIZE=15px][COLOR=rgb(36, 82, 105)]C15[/COLOR][/SIZE][/B]]) Is Nothing Then Exit Sub
ActiveSheet.Image1.Picture = Nothing
[B][COLOR=rgb(132, 53, 52)]yol = "C:\Users\admin\Downloads\Album"[/COLOR][/B]
rsm = yol & Application.PathSeparator & [C15].Value & ".jpg"
If Dir(rsm) = "" Then MsgBox "Resim Yok": Exit Sub
With ActiveSheet.Image1
    .Picture = LoadPicture(rsm): .PictureSizeMode = 1
End With
End Sub

.

 

[Kafkas]

Alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılacak vba ekranında sağdaki boş alana aşağıdaki kodu yapıştırın.

Koddaki, fotoğrafların bulunduğu dizin bilgisini (yol) kendinize göre düzenlerseniz.
C15'deki ismi değiştirdiğinizde, ilgili dizinde C15'deki değer ile aynı adı taşıyan fotoğraf varsa Image1 nesnesine resim yüklenir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [[B][SIZE=15px][COLOR=rgb(36, 82, 105)]C15[/COLOR][/SIZE][/B]]) Is Nothing Then Exit Sub
ActiveSheet.Image1.Picture = Nothing
[B][COLOR=rgb(132, 53, 52)]yol = "C:\Users\admin\Downloads\Album"[/COLOR][/B]
rsm = yol & Application.PathSeparator & [C15].Value & ".jpg"
If Dir(rsm) = "" Then MsgBox "Resim Yok": Exit Sub
With ActiveSheet.Image1
    .Picture = LoadPicture(rsm): .PictureSizeMode = 1
End With
End Sub

.

RESİM OLMASINA RAĞMEN İSİM YAZIP ENTER DEYİNCE RESİM YOK UYARISI VERİYOR RESİM YOLUNU KENDİME GÖRE DÜZENLEDİM

 

[Kafkas]

RESİM OLMASINA RAĞMEN İSİM YAZIP ENTER DEYİNCE RESİM YOK UYARISI VERİYOR RESİM YOLUNU KENDİME GÖRE DÜZENLEDİM

küçük bir eksiği fark etmemişim düzelttim teşekkür ederim iyi çalışmalar

 

[Kafkas]

küçük bir eksiği fark etmemişim düzelttim teşekkür ederim iyi çalışmalar

Bir ricam daha olacak EKTEKİ ÖRNEĞE GÖRE aynı sayfada birden farklı resim çağırma farklı ad soyadı kullanarak yan yana misal örnek birine C15 hücresinde yazınca gelecek diğerinde G15 hücresine yazınca RESİM getirebilirmiyiz.

 

[tahsinanarat]

Private Sub Worksheet_Change(ByVal Target As Range)
Set S2 = Sheets("Sayfa1")
Set Alan1 = S2.Range("e1")
Dim photo As String
Application.ScreenUpdating = False
On Error GoTo Fin
photo1 = Range("c15").Value
photo2 = Range("h15").Value
photo3 = Range("m15").Value
Image1.Picture = LoadPicture(Alan1 & "\" & photo1 & ".jpg")
Image2.Picture = LoadPicture(Alan1 & "\" & photo2 & ".jpg")
Image3.Picture = LoadPicture(Alan1 & "\" & photo3 & ".jpg")
Label1.Visible = False
Exit Sub
Fin:
Err.Clear
End Sub

 

[mertatakan3838]

Bir ricam daha olacak EKTEKİ ÖRNEĞE GÖRE aynı sayfada birden farklı resim çağırma farklı ad soyadı kullanarak yan yana misal örnek birine C15 hücresinde yazınca gelecek diğerinde G15 hücresine yazınca RESİM getirebilirmiyiz.

Deneyiniz
Listenizdeki Ad Soyad hücreleri C15,H15 vd M15 oldugundan buna göre kodlar çalışmaktadır

 

[Kafkas]

Deneyiniz
Listenizdeki Ad Soyad hücreleri C15,H15 vd M15 oldugundan buna göre kodlar çalışmaktadır

ÇOK GÜZEL OLMUŞ KENDİ SAYFAYA ENTEGRE ETTİM ORADA RESİMLERDE BOYUTLANDIRMA YAPMIYOR ONU DÜZELTME İMKANIMIZ VARMI

 

[mertatakan3838]

Geliştirici sekmesinden tasarım moduna tıklayın sonra image1 nesnesinin üzerine gelip çift tıklayın açılan image ayarlar bölümüne geleceksiniz burada picturesizemode 3 yapın bu işlemi diğer image 2 ve image 3 içinde yapın sorun duzelecektir

 

[Kafkas]

ÇOK TEŞEKKÜR EDERİM İYİ GÜNLER

 

[mertatakan3838]

ÇOK TEŞEKKÜR EDERİM İYİ GÜNLER

Rica ederim iyi çalışmalar

 

[Kafkas]

ÇOK SORU SORUYORUM AMA BU KONUDAKİ EXCEL ÇALIŞMA KİTABINI ve RESİMLER KLASÖRÜNÜ E:\ SÜRÜCÜSÜNE ATTIKTAN SONRA KENDİM KULLANABİLİYORUM PAYLAŞIMA AÇIYORUM AĞ ÜZERİNDEN DİĞER ARKADAŞLARDA BİLGİLERE ULAŞIP AD SOYAD YAZIP SORGULAYINCA RESİM GELSİN DİYE FAKAT AD SOYAD YAZINCA DİYER PCLERDE RESİM GELMİYOR HATA VERİYOR BUNUN ÇÖZÜMÜ VARMI ?

 

[mertatakan3838]

ÇOK SORU SORUYORUM AMA BU KONUDAKİ EXCEL ÇALIŞMA KİTABINI ve RESİMLER KLASÖRÜNÜ E:\ SÜRÜCÜSÜNE ATTIKTAN SONRA KENDİM KULLANABİLİYORUM PAYLAŞIMA AÇIYORUM AĞ ÜZERİNDEN DİĞER ARKADAŞLARDA BİLGİLERE ULAŞIP AD SOYAD YAZIP SORGULAYINCA RESİM GELSİN DİYE FAKAT AD SOYAD YAZINCA DİYER PCLERDE RESİM GELMİYOR HATA VERİYOR BUNUN ÇÖZÜMÜ VARMI ?

Resim klasörü diğer personellerin pc dede yüklümü

 

[Kafkas]

Resim klasörü diğer personellerin pc dede yüklümü

Hayır

 

[mertatakan3838]

Hayır

O zaman resimler gelmez sadece yüklü olan pc de gelir

 

[Kafkas]

O zaman resimler gelmez sadece yüklü olan pc de gelir

BİR ÇÖZÜMÜ YOKMU USERFORMLA OLURMU

 

[mertatakan3838]

BİR ÇÖZÜMÜ YOKMU USERFORMLA OLURMU

şimdi bu uygulamayı hangi amaçla kullandığınızı bilmediğim için bir şey diyemiyeceğim

 

[Kafkas]

şimdi bu uygulamayı hangi amaçla kullandığınızı bilmediğim için bir şey diyemiyeceğim

GENEL AMAÇ ÖRNK OLARAK BENİM KULLANDIĞIM PCDE BULUNAN PERSONEL BİLGİLERİ VB. TABLOLARDAKİ BİLGİLERİ USERFORMA AKTARIP DİĞER ARKADAŞLAR SADECE AD SOYAD İLE SORGULAMA YAPARAK HEM RESİM HEM BİLGİLERİNE ULAŞACAKLAR.

 

[Kafkas]

GENEL AMAÇ ÖRNK OLARAK BENİM KULLANDIĞIM PCDE BULUNAN PERSONEL BİLGİLERİ VB. TABLOLARDAKİ BİLGİLERİ USERFORMA AKTARIP (PAYLAŞIMA AÇARAK ) DİĞER ARKADAŞLAR SADECE AD SOYAD İLE SORGULAMA YAPARAK HEM RESİM HEM BİLGİLERİNE ULAŞACAKLAR.

 

[mertatakan3838]

sonuçta verileri çekebileceği kaynak dosya olması lazım