dosyadan istenilen hucreye resim eklenmesi hakkında

[BG]

degerli arkadaslar,
Sayın Haluk'un yardimlariyla dosyanın istedigim duruma gelmesine cok az kaldı,
"resim yerleştir" butonuna basildiginda
1- c:\resimler\resimadı.jpg klasoru icinden alinan resim icin once inputbox cikiyor "resim adini yazin" resim adini yaziyoruz
2- daha sonra yeni bir inputbox cikiyor "hücre adını yazın" hucre adini yaziyoruz ve c:\resimler klasörü altındaki ismini yazdigimiz resim ilgili hucreye konumlaniyor, buraya kadar hersey yolunda,
yeni sorum,

3- birleştirme araligi kullanilmis bir alan icin(ornek:a2:a5 araligi birlestirilmis olsun) hucre boyutuna gore otomatik olarak konumlanmasi

4-dosyanın eklenti olarak calismasi

ilgilenen tum arkadaslara tesekkur ederim, herkese iyi calismalar dilerim.

dosya ektedir.

 

[Haluk]

Örneğin, A2:C13 aralığı birleştirilmiş olsun.

O zaman, aşağıdaki revizyonu yaparsanız, istediğiniz olur...

    PicTop = Range("A2:C13").Top
    PicLeft = Range("A2:C13").Left
    PicW = Range("A2:C13").Width
    PicH = Range("A2:C13").Height

 

[Mahmut Bayram]

Bende bir program ekleyeyim.
Önce hücreyi belirleyin, sonra resmi ekleyiniz.

 

[Haluk]

Kodun tamamı ise, aşağıdaki gibi ....

Sub InsertPicture2()
    '
    ' Haluk ® - 31/07/08
    '
    '
    Dim MyRng As Range
    ChDrive "C:"
    ChDir "C:\Resimler"
    Set MyRng = Application.InputBox("Hücre veya aralık girin", "Veri Girişi...", Type:=8)
    PicFile = Application.GetOpenFilename("Resim dosyası (*.jpg), *.jpg")
    PicTop = MyRng.Top
    PicLeft = MyRng.Left
    PicW = MyRng.Width
    PicH = MyRng.Height
    Set MyPic = Sheets("Sayfa1").Shapes.AddPicture(PicFile, True, True, PicLeft, PicTop, PicW, PicH)
End Sub

Not: Bu yöntemle, resimlerin yerleşeceği hücreleri önceden birleştirmeniz de gerekmez. Kodun çalıştırıldıktan sonra örneğin D2:E15 gibi bir hücre aralığı yazmanız yeterlidir.

 

[BG]

cok tesekkur ederim arkadaslar program ve kodlar icin, ornegin; sayin mahmut un gonderdigi dosyayi nasil eklenti olarak yapabilirim,

 

[Mahmut Bayram]

Farklı kaydette en altta Microsoft Office Excel Eklentisi olarak kaydederseniz olur.
veya
Şu linki inceleyiniz.
http://www.excel.web.tr/showthread.php?t=7756