Hücre açıklamasına resim ekleme

[sdegirmenci]

Değerli Hocalarım merhaba;
Ekteki dosyam üzerinde Kıymetli Levent Hocamın hazırladığı kodda excel sayfasında, bloklanan kısmın hücre açıkllamasına resim olarak eklenmesi kodu mevcut, Benim istediğim ise, excel sayfasına yapıştırdığımız resmin açıklamaya eklenmesi. Bu mümkünmü acaba . Yardımlarınız için çok teşekkür ederim.Saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub RESİM_EKLE()
On Error Resume Next
Set s1 = Sheets("Sayfa2")
Sayfa1.Shapes("Resim 7").Select
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Copy
Set grafik = s1.ChartObjects.Add(Left:=s1.[a1].Left, Top:=s1.[a1].Top, Width:=genislik, Height:=yukseklik)
grafik.Chart.Paste
grafik.Chart.Export "c:\xresimx.gif"
grafik.Delete
sat = WorksheetFunction.CountA(Sheets("sayfa2").[a:a]) + 1
s1.Range("a" & sat) = Sheets("sayfa1").Range("e4")
Set ekle = s1.Range("a" & sat).AddComment
ekle.Text Text:=""
With ekle.Shape
.Fill.UserPicture "c:\xresimx.gif"
.Width = genislik
.Height = yukseklik
End With
Kill "c:\xresimx.gif"
MsgBox "Açıklama oluşturulmuştur"
End Sub

 

[sdegirmenci]

Değerli Levent Hocam;
İlginize çok teşekkür ederim .Tek kelimeyle süpersiniz.
Her resim eklemede kod içine girerek Resim ismini yazmak yerine Örnek "Resim 7" her hangi bir hücreye bağlayabilirmiyiz.
Tüm işleriniz kolay gelsin.

 

[omeryılmaz]

Açıklama olarak ekle

Konuyla ilgili, İlginize çok teşekkür ederim .Tek kelimeyle süpersiniz.. Başlığı incelediğimde işte aradığım bu dedim..
Konu başlığı ile ilgili banada yardımcı olursanız çok memnun olacağız.
Özetle formda anlatmaya çalıştım. Doğumlarla ilgili bilgi hücrelerinin bazı hücrelere açıklama olarak eklenmesi gerekmekte.
Form Çok Büyük ama özetlemeye çalıştım..
Şimdiden ilginiz için şükranlarımı sunuyorum....

 

[omeryılmaz]

Hücre açıklamasına resim ekleme 2

Hücre açıklamasına resim ekleme Makrosunu
Ocak Sayfasında (B2:K10) hücre aralığını, Hücre açıklamasına resim ekleme olararak (K30) ve (K97) hücrelerine nasıl yapabiliriz?

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Levent Menteşoğlu]

Dosyanıza gerekli ilaveyi yaptım, ekte sunuyorum.

 

[omeryılmaz]

Hocam Eline ve Emeğine yüreğine Sağlık Teşekkür ederim...Konuyla ilgili Bir çok Sağlık çalışanına yardımcı olacağız...
Ancak Unuttuğum bir konu (B2:K10) hücre aralığındaki veriler değiştiğinde, Hücre açıklamasına resim ekleme olararak (K30) ve (K97) hücrelerindeki Eski Açıklamayı sil yenisini ekle nasıl yapabiliriz.

Butona her basıldığında Eski Açıklamayı sil Yenisini ekle güncelle gibi...

 

[omeryılmaz]

Formda (B2:K10) hücre aralığındaki veri değiştiğinde, Hücre açıklamasına resim ekle butonununa tekrar basıldığında (K30) ve (K97) hücrelerininde yenilenmesini nasıl yapabiliriz.

Veri değiştiğinde butona tekrar basıldığında resim yenilenmiyor.....(B2:K10) aralığında bir hücre değiştiğinde açıklamayı yenileyecek bir kod ilavesi nasıl yapılabilir.
Eski Açıklamayı sil Yenisini ekle gibi...

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. B2:K10 aralığındaki her değişiklikte açıklamadaki resim yenilenecektir.

 

[omeryılmaz]

Hocam Açıklama Oluştur butonuna basıldığında B2:K10 aralığındaki değişiklikler açıklamadaki (k30) ve (k97) deki (Tablo) resim yenilenmiyor eski veriler aynen kalıyor....

Hücre Açıklamasındaki eski resmi yenile.....

Saygılar...........

 

[omeryılmaz]

Hücre Açıklamasına resim ekle hatası

Hocam Açıklama Oluştur butonuna basıldığında B2:K10 aralığındaki değişiklikler açıklamadaki (k30) ve (k97) deki hücrelerdeki (Tablo) resim bende yenilenmiyor.
Acaba :

Set grafik = s1.ChartObjects.Add(, , Width:=genislik, Height:=yukseklik)

hata veriyor. Buradan kaynaklanabilirmi?

Saygılar...........

 

[omeryılmaz]

Açıklama Oluştur butonuna basıldığında B2:K10 aralığındaki değişiklikler açıklamadaki (k30) ve (k97) deki hücrelerdeki (Tablo) resim bende yenilenmiyor.

Set grafik = s1.ChartObjects.Add(, , Width:=genislik, Height:=yukseklik)
hata veriyor. Buradan kaynaklanabilirmi?

Açıklama Oluştur butonuna her tıklandığında= (K30 ve K97 deki Hücre Açıklamasına eklenen Resmi güncelle...)

Saygılar...........

 

[Levent Menteşoğlu]

Eklediğim dosyada küçük bir değişiklik yaptım tekrar ekliyorum.

 

[sdegirmenci]

Değerli Hocalarım merhaba;
Hücre açıklamasına resim ekleme konusunda, öncelikle kıymetli Levent Hocama çok teşekkür ediyorum.Hazırlamış olduğum Genelge Takip listesinde müthiş kolaylık sağladı. Ancak çok uğraşmama rağmen kopyalama sırasında aynı sayfa üzerine yazacağım "kopyalanan, genelge ile ilgili bilgileri" son satıra aktarmasını başaramadım.Dosyam ektedir. Yardımcı olursanız çok sevinirim. Saygılarımla.

 

[Levent Menteşoğlu]

Dosyanızdaki kodu aşağıdaki ile değiştirerek denermisiniz.

Sub resim_ekle()
On Error Resume Next
Set GL = Sheets("Genelge Liste")
Sheets("Kopyalama").Shapes("Resim 4").Select
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Copy
Set grafik = GL.ChartObjects.Add(Left:=GL.[a1].Left, Top:=GL.[a1].Top, Width:=genislik, Height:=yukseklik)
grafik.Chart.Paste
grafik.Chart.Export "c:\xresimx.gif"
grafik.Delete

sat = WorksheetFunction.CountA(Sheets("Genelge Liste").[e5:e65536]) + 5
GL.Range("d" & sat) = Sheets("Kopyalama").Range("d5")
GL.Range("c" & sat) = Sheets("Kopyalama").Range("c5")
GL.Range("k" & sat) = Sheets("Kopyalama").Range("f5")
GL.Range("l" & sat) = Sheets("Kopyalama").Range("g5")
GL.Range("e" & sat) = Sheets("Kopyalama").Range("e5")
Set ekle = GL.Range("e" & sat).AddComment
Sheets("Genelge Liste").Cells(sOn + 5, "C") = [C5]
Sheets("Genelge Liste").Cells(sOn + 5, "D") = [D5]
Sheets("Genelge Liste").Cells(sOn + 5, "K") = [F5]
Sheets("Genelge Liste").Cells(sOn + 5, "L") = [G5]
ekle.Text Text:=""
With ekle.Shape
.Fill.UserPicture "c:\xresimx.gif"
.Width = genislik
.Height = yukseklik
End With
Kill "c:\xresimx.gif"
MsgBox "Açıklama oluşturulmuştur"
End Sub

 

[sdegirmenci]

Değerli Levent Hocam ;
İlginize çok teşekkür ederim.İnanın çekinerek sormuştum çokmu oluyoruz acaba diye.Tam istediğim gibi oldu. İşlerinizin kolay gelmesi dileğiyle hoşçakalın.

 

[Necdet]

Merhaba,

Bende

Set grafik = s1.ChartObjects.Add(, , Width:=genislik, Height:=yukseklik)

satırını bir türlü geçemedim. Argumant not optional diye bir hata veriyor.

 

[sdegirmenci]

Değerli Levent Hocam merhaba;
Hücre açıklamsına resim eklemeyi Çalıştığım iş yerinde Genelgeler için kullanmayı düşünüyordum ancak iş yerimde bulunan bilgisayarımda bir kaç başarılı kopyalamadan sonra kopyalanan resmin büyüklüğünde boş sarı bir zemin çıkmaya başladı. Ne yaptıysam olmadı. Sonunda Ofis i yeniden kurdum.Tekrar başarılı bir kaç kopyalamadan sonra aynı şeyi tekrar yaptı. Arkadaşımın bilgisayarında denedim onda çalışıyor. Evdeki bilgisayarımda denedim.Defalarca kopyalama yaptım başarılı .İş yerimdeki bilgisayarımda kopyalama yapamamamın Sizce sebebi ne olabilir. Bir fikir verebilirmisiniz. Saygılarımla.

 

[Levent Menteşoğlu]

Açıklamaya her resim eklediğinizde dosya büyüklüğü sürekli artıyormu buna bir bakarmısınız.

 

[sdegirmenci]

Merhaba;
Hocam dosya büyüklüğü her resim eklediğimde artıyor.