klasorden resim alıp hucreye yerlestirmek

[BG]

arkadaslar asagidaki linkte daha once icinden cikamadigim bir sorum vardi, bu sorudan vazgectim, peki daha basit bir sey sormak istiyorum, c:\resimler klasöründen activesheet'in h2 hücresine yazdigim resim adini in a2 hücresine nasil getirebiliriz. dosya ekinde açıklama mevcuttur, ilgilenen arkadaslara tesekkur ederim.


http://www.excel.web.tr/showthread.php?t=53679

 

[Haluk]

Bu konuyla ilgili foruma dosya veya kod eklediğimi hatırlıyorum ama bulamadım....


.

 

[BG]

sayin haluk

forumdan daha once aldigim bir dosya var fakat bunu kendime bir turlu uyarlayamadim, yardimci olursaniz cok memnun olurum, dosyayi ekliyorum

 

[Haluk]

Şöyle bir kodla işe başlayın isterseniz;

Sub Test()
    PicFile = Application.GetOpenFilename("Resim dosyası (*.jpg), *.jpg")
    If PicFile <> False Then
        Set MyPic = Sheets("Sheet1").Shapes.AddPicture(PicFile, True, True, 0, 0, 50, 50)
    End If
End Sub

"AddPicture" fonksiyonunun parametrelerine yardım dosyasından bakabilirsiniz.

Yukarıdaki kodda;

Left= 0
Top= 0

Yani;... resim A1 hücresine gidicek.

Width = 50
Height = 50

Bunlar da, yerleştirilen resmin boyutları.


.

 

[BG]

sayin Haluk

ilginize tesekkur ederim ama problemime bir cevap olmadi, tesekkurler

 

[Haluk]

Sayın brain;

Yukarıda önerdiğim kodun, dosyanıza uyarlanmış şekli ektedir.

Sıkıştırılmış dosyayı C:\Resimler olarak PC'e yerleştirip, içindeki Test.xls dosyasını açtığınızda, bahsettiğiniz gibi sözkonusu resimler A2 hücresinin ölçülerine uygun şekilde boyutlandırılarak yerleştirilmektedir.


.

 

[BG]

sayın Haluk

ilginize cok tesekkur ederim, tek kelimeyle mukemmel olmus, emeginize saglik hakkinizi helal edin.