Resim ekleme???

[inspirasyon]

Merhabalar, öncelikle bu forumdan çok şeyler öğrendiğimi ve emeği geçen, bildiklerini paylaşan tüm arkadaşlara çok çok teşekkür etmek istediğimi belirtmek isterim.
Makrolar konusunda çok yeniyim ve sorunum resim ekleme makrosu oluşturmak, aslında formu çok araştırdım ve bu konuyla ilgili bir çok başlığa baktım ama çözemedim.
Sorunum şu, ben excelde bir resim ekleme butonu oluşturup, bu butona makro ekleyerek, bilgisayarımın herhangi bir yerindeki resmi dosya da belirtilen bir konumda (C:\masaüstü\resimler) ve (örneğin A1 hücresine) eklenen hücre boyutuna göre otomatik ölçeklendirilip yerleştirmek istiyorum.. şimdiden teşekkür ederim..

 

[tahsinanarat]

Option Explicit
Sub testme()
Dim myPictName As Variant
Dim myPict As Picture
Dim wks As Worksheet
Set wks = Worksheets("sayfa1")
myPictName _
= Application.GetOpenFilename("Picture files, *.bmp;*.jpg;*.gif")
If myPictName = False Then
MsgBox "try later!"
Exit Sub
End If
With wks
With ActiveCell 'Seçilen hücre ebatlarında hücreye resim ekleniyor
Set myPict = .Parent.Pictures.Insert(myPictName)
myPict.Top = .Top
myPict.Left = .Left
myPict.Width = .Width
myPict.Height = .Height
End With
End With
End Sub