Makro ile açıklamaya resim eklemek

[reefted]

Merhaba;
Ben açıklama hanesine resim eklemek istiyorum.
Ancak ekleyeceğim resim çok.
Her bir resim için tek tek açıklama biçimlendir'den resim seçmek benim için büyük zaman kaybına yol açıyor.
Bu bağlamda bir hücrede resmin yolunun adresi bulunuyor.Mesela "d:/resimler/ornek.jpg" bu resmi başka bir hücrenin açıklama kısmına koymam makro ile mümkün mü?
Yardımcı olursanız çok sevinirim...
İyi Çalışmalar

 

[ibayarslan]

Denermisiniz...

Sub Macro1()
    ActiveSheet.Pictures.Insert("C:\dynamicbitmaps\001.gif").Select
    Selection.ShapeRange.AlternativeText = Sheets("data").Cells(1, 1).Value
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki koduda deneyebilirsiniz.

[vb:1:b95bb06633]Sub resimekle()
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.Fill.UserPicture "d:/resimler/ornek.jpg"
ActiveCell.Comment.Visible = False
End Sub
[/vb:1:b95bb06633]

 

[reefted]

İlginize teşekkürler ama malesef ikisi de çalışmadı.
Sayın ibayarslan sizin kodunuz resimi getiriyor normal hücrenin içine koyuyor.Ben açıklama hanesine koymak istiyorum.Ayrıca hangi resmi alacağı (yani resmin adresi) başka bir hücrede mevcut.
A sütununda kişi adı var.D sütununda da bu kişinin resminin sabit diskin neresinde olduğunu gösteren adres var.
D:\Resimler\ahmet.jpg

Ben makronun bu hücredeki resim adresini okuyup aynı satırdaki A sütununda bulunan isme açıklama resmi olarak geçmesini istiyorum.
Böylece o ismin üzerine geldiğimde kişinin resmi gözükecek....

Umarım derdimi anlatabilmişimdir...
Sayın leventm sizinde ilginize teşekkür ederim ancak sizin kodunuz "object variable or with block variable not set" hatasını aldım...
Umarım istediğim şey zor değildir....
İyi Çalışmalar

 

[Levent Menteşoğlu]

Resim ekleyeceğiniz hücre aralığını verirseniz daha net cevap verebilirim. Bu hatayı vermesi için hücrede açıklama ekli olmaması gerekir.

 

[Levent Menteşoğlu]

Size daha pratik bir kod önereyim. Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. Daha sonra sayfa üzerinde açıklama ve açıklamaya resim eklenmesini istediğiniz hücreye çift tıklayın kod çalışacaktır.

[vb:1:b26f759755]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Cancel = True
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.Fill.UserPicture "" & ActiveCell
ActiveCell.Comment.Visible = False
End Sub
[/vb:1:b26f759755]

 

[reefted]

Malesef bu da tam anlamıyla çalışmadı.
Daha doğrusu ben sorunumu size tam olarak anlatamadım.
Bu yüzden Ek'li dosya da tam olarak ne istediğimi anlattım...
Derdime çare bulursanız çok sevineceğim...
İyi Çalışmalar...

 

[Korhan Ayhan]

Selamlar,

Ekteki örneği incelermisiniz...
Yalnız D sütunundaki resim yolunu kendinize uyarlayarak deneyiniz.

 

[reefted]

Sayın COST_CONTROL verdiğiniz benim istediğim işlemi yapıyor ancak Bir kod hatası veriyor.Ayrıca bir alt satıra da açıklama ekliyor boş olarak. Bunun yanında resimlerin orjinal çözünürlüklerinde ekleme imkanımız var mı?

Teşekkürler.
İyi Çalışmalar...

 

[BlackAlert]

Teşekkürler