Sicile Göre Farklı Klasörden Resim Çağırma

Merhaba,
Resim alma kodu:

Açılış sayfası için de ThisWorkbook kod bölümüne aşağıdaki kodu kopyalayınız.

Teşekkür ederim Ömer bey elinize sağlık. Uygulayıp dönüş yapacağım

Ömer bey uyguladım ama çalışmadı yanlış bir şey yaptım sanırım. Uygulamada belirttiğim üzere makro konusunda pek bilgim yok. Size zahmet örnek belgeye uygulayabilir misiniz?

Uyguladığınız dosyanın gönderdiğiniz örnekteki gibi aynı klasör içerisinde yer alması gerekiyor. klsr isimli değişken çalıştırılan dosyanın yoluna göre oluşturuluyor. Farklı bir yola sahip bir dosyada çalıştıracaksanız klsr = ThisWorkbook.Path & "\..\ALBÜM\" satırını resimlerinizin olduğu klasör yoluyla değiştiriniz. Sondaki \ karakterini de unutmayınız. klsr = "C:\Users\kullanici\Belgeler\Personel\Albüm\" gibi...

Klasörler gönderdiğim örnekteki gibi Ömer bey. Yazdığınız makroyu gönderdiğim örnek çalışma sayfasına işleyebilir misiniz size zahmet makro bilgim sıfıra yakın

Eğer önemli ise gönderdiğim BELGELER Klasörü bilgisayarımda D de PAYLAŞIM klasorunun içinde Ömer bey size zahmet örnek belgeme uygulayabilir misiniz

Ömer bey birde daha önce açıklama da belirttiğim üzere sicil numaralarını formülle aldığım için fotoğrafların gelmesi için makroyu çalıştırmak için bir tuş koyulması gerekiyor sanırım.

Konu sahibi Sayın @teyadih 'in isteği üzerine;
resimlerin hücre açıklaması olarak eklenmesi ve
belge kapatılırken aktif sayfa hangisiyse bir sonraki açılışta aynı sayfa aktif olacak şekilde açılması için aşağıdaki kodlar uygulandı.

GİRİŞ SAYFASI'ndaki sola ok şekliyle resim ekleme kodu ilişkilendirildi.
Verdiğim kodda yer alan
yol = ...........
kısmına ÇİFT TIRNAK arasında, fotoğrafların bulunduğu dizinin doğru yazıldığından emin olunuz.


.

Teşekkür ederim sayın Baran kontrol edip dönüş yapacağım

Sayın Baran belgenizi hafta içi iş yerinde asıl dosyama uygulayıp öyle dönüş yapacağım

Merhaba sayın Baran belgeyi asıl dosyama uyguladım. Değişiklikleri yaptıktan sonra kaydedip kapattım ancak tekrar açtığımda makrolar çalışmadı.
Geliştirici-makrolar-adımla-çalıştır işlemini yaptığımda değişiklikler geldi. Gönderdiğiniz örnek dosyanın giriş sayfasına hakim ve personel sayfasındaki makroları çalıştırmak için düğme koyabilir misiniz? size zahmet

makroda kullandığımız yol = "D:\PAYLAŞIM\BELGELER\1.PERSONEL\ALBÜM" şeklinde sayın Baran

Ömer BARAN' Alıntı:

.........
GİRİŞ SAYFASI'ndaki sola ok şekliyle resim ekleme kodu ilişkilendirildi.
...................

Genişletmek için tıklayın ...

Alıntıladığım 9 numaralı cevap ekindeki belgede,
HÜCRE AÇIKLAMASINA RESİM EKLEME işlemi için (kapatıldığında aktif olan sayfanın bir sonraki açılışta aktif olması olayıyla ilgisi yok)
belgedeki SOLA OK simgesinin ilişkilendirdiğimi belirtmiştim.
Bu işlemi şöyle yaptım: ilgili şekile fareyle SAĞ tık >> MAKRO ATA >> Açılan küçük ekranda makronun adını seç>> İşlemi onayla.

Şayet siz resim ekleme olayıyla ilgili SOLA OK yerine başka bir nesne kullanmak istiyorsanız;
-- SOLA OK şekline fareyle SAĞ tık >> MAKRO ATA >> Açılan küçük ekranda üst tarafta seçili gelen veriyi silin (görsel)
-- Sayfaya bir düğme ekleyin (GELİŞTİRİCİ menüsünde EKLE düğmesini seçtiğinizde açılacak küçük seçeneklerden ilkini seçerek - Form Deretimleri bölümündeki DAĞME) veya EKLE menüsünden bir şekil/metin kutusu neyi istiyorsunuz o şekli ekleyin,
-- Eklediğiniz nesneyle ilgili makroyu ilişkilendirmeniz (yukarıda mavi renklendirdiğim satırda belirttiğim gibi) yeterli olur.
-- YOL bilgisini değiştirme: ALT+F11 tuşlarına basarak VBA ekranını açıp, sol tarafta belgenizin adının solundaki + simgesine tıklayıp, listenin altında MODULE1'i bulup ÇİFT TIRNAK arasına ilgili yol bilgisini yazmanız yeterli olur.

Artık bu nesne üzerinden makroyu tetikleyebilirsiniz.

Sorduğunuz bunlar sanırım.
.

Teşekkür ederim sayın Baran uygulamaya çalışacağım. Sorun olursa dönüş yaparım

Merhaba sayın Baran. Düğme koyup makro atadık sonuç tamam. Ancak telefonda da kullanmak için PDF olarak çevirdiğimde resimleri göstermiyor. Tahmin edemediğim için önceden belirtmedim kusura bakmayın. PDF de gözükecek şekilde düzenleyebilir misiniz makroyu size zahmet

Belgede, ilgili sayfanın SAYFA YAPISI ayarları bölümünde,
görselde SEÇİLİ olan kısma dikkat (Sayyfada görüntülendiği gibi seçeneği seçili hale getirip, kaydedin, PDF olayını ondan sonra deneyin).

Teşekkür ederim sayın Baran uygulayıp dönüş yapacağım