Makro ile açıklama eklenebilir mi?

[Carpintero]

Merhabalar
Aşağıdaki veri kümesini herhangi bir hücreye açıklama olarak
eklemek istesem bunu nasıl yapabilirim acaba ?

A	B	C
Sıra	Şehir	Tutar
1	Ankara	500​
2	İzmir	520​
3	Koceli	550​
4	Kayseri	400​
5	İstanbul	680​

 

[Mdemir63]

Selamlar
veri kümenizi resim olarak kaydederek, aşağıdaki kod yardımı ile kodlardaki örnek B' hücresine ekleyebilirsiniz
Not: resimYolu kısmını kendinizin resmi neredeyse ona göre düzenlemeniz gerekir

Sub AciklamayaResimEkle()
    Dim ws As Worksheet
    Dim hcr As Range
    Dim resimYolu As String

    Set ws = ActiveSheet

    Set hcr = ws.Range("B2")

    ' Eklenecek resim yolunu kendinize göre yazın
        resimYolu = "C:\Users\M Demir\Desktop\ÖrnekResim.JPG"

    If Not hcr.Comment Is Nothing Then
        hcr.Comment.Delete
    End If
    hcr.AddComment "Bu hücreye resim eklenmiştir."

    ' Açıklamaya resim ekleyin
    With hcr.Comment.Shape
        .Fill.UserPicture resimYolu
        .Width = 150
        .Height = 100
    End With

    MsgBox "Resim başarıyla açıklamaya eklendi!", vbInformation
End Sub