Resİm Ekleme

[mbattal]

Excel ustaları merhaba,
Aşağıya eklediğim programa sizlerin sayesinde sahip oldum ve birazda kendim geliştirerek kullanıma aldım. İlgilenenlere ve özellikle sn. fructose ve sn. cost control' e çok teşekkür ederim.
Fakat ben yine bu programa bir şey eklemek istiyorum 'SORGU' sayfasında G5 hücresine resim no girdiğimde hemen yan tarafa tanımlayacağımız bir resmin ön izlemesi çıkabilirmi ? Bunun için neler yapmalıyım ? Siz bir örnek resim ekleyip taslak oluşturabilirmisiniz ?
Şimdiden çok teşekkürler.

 

[Recep İpek]

Aşağıdaki linklerde bununla ilgili bilgileri bulabilirsiniz.

http://www.excel.web.tr/showthread.php?t=2449

http://www.excel.web.tr/showthread.php?t=15118

 

[mbattal]

Sayın ripek verdiğiniz örnekleri inceledim ama açıkçası hiç bir şey anlamadım. Daha kapsamlı bir yardım edebilirmisiniz

 

[Merhum İdris SERDAR]

Dosyanız ekte.

Ben üç resim koydum. Siz artık artırın.

Yapılışı:

1.Tablonuzun son sütununa Resim No diye bir sutun ekledim.

2. İki tane alan adı tanımladım. Onları inceleyin.

3.Resmin geldiği yerde I2 hücresinde formül var.

4. Koyacağınız resimleri sayfaya doğrudan kopyalayın. Resmin adına dikkat edin. Çünkü bunu veri sayfasındaki sütuna yazacaksınız.

4. Sorgu sayfasındaki kodlara bakınız.

 

[mbattal]

sayın yurttas çok teşekkür ederim elinize bilginize sağlık. Benim masa üstünde RESİMLER diye bir dosyam var (jpg) resimleri oradan almayı başaramadım lütfen biraz daha tahammül edin bana

 

[Merhum İdris SERDAR]

Resimlerin nerede olduğu önemli değil.

Ekleyeceğiniz resmi açın. Bunu kopyalayıp. TAKİP sayfasına yapıştırın. Resmin yapıştığı yer önemli değil.

Yapıştırdığınız resmi tıklayın. Formül çubuğunun solundaki alan adlarının göründüğü yerde "Picture 1" benzeri bir ifade göreceksiniz. Bunu SORGU sayfasının Resim No sütununun ilgili satırına yazın.

Her resim için ayrı ayrı bu işlemi yapın.

 

[mbattal]

Affınıza sığınarak soruyorum ' SORGU sayfasının Resim no sütununun ilgili satırı ' neresi
Birde bu işlem için jpg resimler uygun mu. (Kopyalayıp yapıştıramıyorum da)
kusura bakmayın

 

[Merhum İdris SERDAR]

1.Dosyayı Paint ile açın. Resmin hepsini seçin kopyala deyip, Dosyanızın SORGU sayfasına yapıştırın.

2.Bu resmin bir adı var (Picture 1, Picture 2 gibi...)

3. Resmin adını, kime aitse TAKİP sayfasının Resim No sütununun (bunu ben ekledim.) satırına yazın.

Örneğin sizin dosyada;

Picture 1'i 1111'in olduğu satıra,
Picture 2'yi 1212'nin olduğa satıra,
Picture 3'ü 1213'ün olduğu satıra yazdım.

 

[kmlpyrz]

Öğrenci Programıma Resim Eklemek İstiyorum

Merhaba Ben Kamil Poyraz. Bu foruma yeni üye oldum. Fen ve Teknoloji Öğretmeniyim. Amatörcede olsa Excel'de program yapmak en büyük hobim. Ancak iş Makro yazmaya gelince tıkanıp kalıyorum.
Sizden ricam programımda öğrenci ismini seçtğimde, onun tüm bilgilerinin yanında, bir de fotoğrafını görmek istiyorum. Yardımcı olursanız çok sevinirim. Şimdiden teşekkürederim.

 

[Levent Menteşoğlu]

Merhaba

ÖÇncelikle dosyanızdaki "ANASAYFA" isimli sayfanın sekmesi üzerinde sağklik yaparak "kod görüntüle" seçeneğini seçerek sayfanın kod sayfasını açın. Daha sonra aşağıda verdiğim kodu bu sayfaya kopyalayın. ANASAYFA D5 hücresinde ismi değiştirdiğinizde dosyanızda belirttiğiniz yoldaki resim çağırılacaktır. Burada hücrede seçilen isimle resmin isminin büyük küçük harf olarakta birebir aynı olmasına dikkat etmeniz gerekmektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address <> "$D$5" Then Exit Sub
ActiveSheet.Shapes("resim").Delete
[f4].Select
ActiveSheet.Pictures.Insert("C:\Documents and Settings\DELL\Belgelerim\Resimlerim\Foto Albüm\" & Target & ".jpg").Select
Selection.Name = "resim"
[d5].Select
End Sub

 

[Merhum İdris SERDAR]

Sayın kmlpyrz,

Dosyanızın yukarıdaki açıklamalarım çerçevesinde örnek olarak yapılmış şekli.

 

[mbattal]

Herkese merhaba,
Sayın leventm D5 diye belittiğiniz hücre diyelimki 'Sayfa 1' de olsun fakat biz resmi 'Sayfa 2 ' de açılmasını istersek kodlarda nasıl bir değişiklik yapılması gerekiyor.

 

[mbattal]

Sayın leventm,
sizin vermiş olduğunuz makrolara göre kendi bilgisayarımdan olayı hallettim.
fakat bu programımı ağda paylaşıma açtığımda diğer bilgisayarlar resimleri göremiyor. Bana ne önerebilirsiniz.
Teşekkürler

 

[Levent Menteşoğlu]

Açıkçası fikrim yok. Ağ üzerinde paylaşıma açık olan bir dosyada hiç çalışmadım, bu tür çalışmalar yapan üyelerimizden yardım gelecektir diye umuyorum.

 

[byfeat]

Paylaşım Hatası

arkadaşım
Ağdakilerin görebilmesi için resmin linkini verdiğin dosyanında paylaşıma açık olması gerekli yada resim orada yapıştırılmış olmalı aksi takdirde paylaşıma açılmamış bir dosyaya girmeye çalışıldığı için göremezler.
sevgilerle

 

[kmlpyrz]

Sayın yurttas ilginizden dolayı çok teşekküreder, çalışmalarınızda başarılar dilerim.

 

[kmlpyrz]

Aynı şekilde sayın leventm'ede çok teşekkürler. Ellerine sağlık.

 

[mbattal]

Sayın byfeat,
Programımı ağ da paylaşıma açtığım gibi resimlerin bulunduğu dosyayıda paylaşıma açıyorum program kullanımında herhangi bir problem yok fakat resimler gelmiyor.
Acaba kod sayfasındaki makrolarda (sn. leventm belirtmiş olduğu) bir değişiklik mi yapılması gerekiyor.
Yardım ederseniz sevinirim.

 

[Haluk]

Resimlerin olduğu klasörü paylaşıma açmanız yeterli değil.

Ayrıca, koddaki dosya yolunu da değiştirmeniz gerekir.

Levent dostumun aşağıda yer alan kodu;

 ActiveSheet.Pictures.Insert("C:\Documents and Settings\DELL\Belgelerim\Resimlerim\Foto Albüm\" & Target & ".jpg").Select

kodların yer aldığı paylaşıma açılmış dosyaya erişen her bilgisayarda lokal olarak, yukarıdaki dosya yolunu arar ve bulamazsa da beklediğiniz tepkiyi vermez.

Bu nedenle, dosya yolunu paylaşıma açılmış klasöre referans vermek için aşağıdaki gibi birşey denemeniz gerekir. Burada, resimlerin yeraldığı sizin bilgisayarın yerel ağ ortamında adının DELL olduğu kabul edilmiştir.

ActiveSheet.Pictures.Insert("\\[B]DELL[/B]\Belgelerim\Resimlerim\Foto Albüm\" & Target & ".jpg").Select

Buna benzer bir şekilde probleminizi halledebilirsiniz.

 

[mbattal]

Sayın Haluk çok teşekkür ederim sorunum hallodu. Sayın yurttas , Sayın leventm , Sayın byfeat sizlerede çok teşekkür ederim elinize bilginize sağlık