Hücreye Resim Ekleme

[snapper]

Arkadaşlar Merhaba,

"Textbox1.value" kutusunda yazan isme göre, C:\Users\Mehmet\Pictures" konumundan "N" satırına boyutlarını sınırlandırabileceğim şekilde resim eklemek istiyorum. Yardımcı olursanız sevinirim.

Şimdiden teşekkür ederim

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    If TextBox1.Value <> "" Then
        Yol = "C:\Users\Mehmet\Pictures"
        With Range("N1")
        Set Resim = .Parent.Pictures.Insert(Yol & "\" & TextBox1.Value & ".jpg")
            Resim.Top = .Top
            Resim.Width = .Width
            Resim.Height = .Height
            Resim.Left = .Left
            Resim.Placement = xlMoveAndSize
        End With
    End If
End Sub