Excel Vba da hücreye buton ile açıklamaya resim eklemek

[mechtab]

Merhaba,

Excelde bir hücreye buton yardımı ile tıkladığımda açıklama eklesin istiyorum. Fakat butona bastığımda bir klasör açılsın bu klasör içindeki resimlerden birini seçip onayladığımda açıklamada bu resim gözüksün istiyorum.

internette araştırdığımda " Comment.Shape.Fill.UserPicture " bu komut ile klasör açma komutlarını birleştiremiyorum.



VBA konusunda sadece forumlardan aldığım kodları deneme yanılma yolu ile birşeyler yapabiliyorum. Burada tıkandım. Konu için yardımcı olabilir misiniz ?

 

[Astalavista58]

Merhaba, seçili hücreye not olarak resim ekleyebilirsiniz.

Sub AciklamaEkle()
    Dim DosyaYolu As String
    Dim ResimAdi As String

    DosyaYolu = Application.GetOpenFilename("Resim Dosyası (*.jpg; *.jpeg; *.png; *.bmp), *.jpg; *.jpeg; *.png; *.bmp")

    If DosyaYolu <> "False" Then
        ResimAdi = Mid(DosyaYolu, InStrRev(DosyaYolu, "\") + 1)

        With ActiveCell
            .AddComment
            .Comment.Text Text:=ResimAdi
            .Comment.Shape.Fill.UserPicture DosyaYolu
        End With
    End If
End Sub

 

[mechtab]

@Astalavista58 Teşekkür ederim tam istediğim gibi oldu.