makro koduma hücre nasıl seçtirebilirim

[karzer]

Sub sicilresim()
    Dim MyRng As Range
    Set MyRng = Application.InputBox("Resmin yerleştirileceği hücre veya aralığı girin", "Veri Girişi...", Type:=8)
    PicFile = Application.InputBox("Kullanıcı sicili Girin", "Veri girişi...", Type:=1)
    PicFile = "http://10.0.0.5/okul/ogrenci/" & PicFile & ".jpg"
    PicTop = MyRng.Top
    PicLeft = MyRng.Left
    PicW = MyRng.Width
    PicH = MyRng.Height
    Set MyPic = ActiveSheet.Shapes.AddPicture(PicFile, True, True, PicLeft, PicTop, PicW, PicH)
End Sub

Kodu çalıştırdığımda hücre seçmemi istiyor acaba belli bir hücre de nasıl ayarlabiliriz. Mesela butonu tıklayınca öğrenci numarısını girip resmin I23:J31 hücrelerinde çıkamsını istiyorum yardımcı olacak arkadaşlara teşekkürler...

 

[Ferhat Pazarçevirdi]

Set myRng=Range("A1")

şeklinde sabit bir hücreye veya aralığa set edebilirsiniz.

Ama etseniz bile, web'de bulunan bir resmi; şu anki kodlarla, herhangi bir sayfaya ekleyemezsiniz. Deneyiniz.

Belki, aşağıdaki link; ileride karşılaşacağınız bu problem için, size ipucu verebilir.

http://www.excel.web.tr/f48/ac-klama-icerisine-webden-resim-getirmek-t59523.html

 

[karzer]

Teşekkürler işimi gördü çok sağol...