Commentlerinize Resim Ekleyin

 

Resmimizde gordugunuz gibi commentlerinize resim eklemenizde mumkun, tabiki bu islem visual basic sayesinde oluyor. oncelikle kodlari vereyim;

Sub add_yrm()

Dim List_Araligi As Range

Dim c As Range

Dim yrm As Comment

Dim Resim_Yeri As String

On Error Resume Next

'dosya icerisindeki dosya isimleri yazan alani tanimlama

Set List_Araligi = Range("A1:A4")

'Resmin bulundugu klasorun dosya yolu

Resim_Yeri = "C:Data"

If Right(Resim_Yeri, 1) <> "" Then

Resim_Yeri = Resim_Yeri & ""

End If

For Each c In List_Araligi

With c.Offset(0, 1)

Set yrm = .Comment

If yrm Is Nothing Then

Set yrm = .AddComment

End If

With yrm

.Text Text:=""

.Shape.Fill.UserPicture Resim_Yeri & c.Value

.Visible = False

End With

End With

Next c

End Sub

Kodlarin uzerindede aktardim fakat onemli noktalara tekrar deginmek istiyorum, oncelikle dosya yolunuzu dogru yazmalisiniz; ornekte  C:Data olarak verilmisti. ayni sekilde bu dosya yolundaki dosyalarinizin isimlerinin bulundugu alani da kodla tanitmalisiniz kodlarda Set List_Araligi = Range(“A1:A4”) seklinde geciyordu..

Ekli dosyayi incelerseniz daha rahat anlasilir olacaktir..

bu konu comment – Yorum haftasi etkinligi dolayisiyla acilmistir..

Yorumda Resim

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Commentlerinize Resim Ekleyin” için 3 yorum

  1. kodları denedim açıklamayı ekliyor ancak açıklama içerisine resim eklemiyor .bir sorun mu var acaba kodlar ile ile ilgili.örnek dosyanız içerisinde excell çalışması bulamadım bir örnek gönderebilirseniz sevinirim teşekkürler

  2. Muhammet Bey Merhaba,

    Sizin yönlendirdiğiniz şekilde yaptım ancak makro çalışıp herbir hücreye comment eklemesine rağmen içerisine resim eklemiyor ; ayrıca hata uyarısı da vermiyor , benim de takıldığım nokta bu oldu .Bu arada Türkçe Office 2003 kullanıyorum bundan kaynaklanan bir durum olabilir mi?
    Yardımlarınızı rica ederim.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


9 + 2 =