Serverden resimleri çağırmak

[karzer]

Merhaba bir serverde bulunan resimlerimizi input la çağırmak istiyoruz acaba nasıl yapabiliriz. Örnek olarak excel sayfama bir buton yerleştirdim butonu tıklayınca input giriş menusu geliyor oraya gireceğim numaraya göre resmi bir pop menude göstermesini istiyorum. Forumda bu işlevi yerine getirecek bir kod da buldum ama hata verdi, kodu da veriyorum.

Sub Test()
    Data = Application.InputBox("Kullanıcı Numarası Girin", "Veri girişi...", Type:=1)
    If Not Data = False Then
        ActiveSheet.Pictures.Insert "http://www.ornek.com/resimler/calisanlar/1234.jpg" & Data
    End If
End Sub

burda 1234.jpg yazan kısımı input tan girmek istiyorum, girdiğim numarayı çağırmasını istiyorum. Acaba nasıl yapa biliriz.

 

[Haluk]

Örnek:

Sub Test()
    Data = Application.InputBox("Kullanıcı Numarası Girin", "Veri girişi...", Type:=1)
    If Not Data = False Then
        ActiveSheet.Pictures.Insert "http://upload.wikimedia.org/wikipedia/commons/thumb/f/f4/Hortensia-1.jpg/799px-Hortensia-" & Data & ".jpg"
    End If
End Sub

Veya;

Sub InsertPicture3()
    '
    ' Haluk ® - 01/08/08
    '
    '
    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ı Numarası Girin", "Veri girişi...", Type:=1)
    PicFile = "http://upload.wikimedia.org/wikipedia/commons/thumb/f/f4/Hortensia-1.jpg/799px-Hortensia-" & 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

Ya da, sizin örnek verdiğiniz URL'i kullanırsak;

Sub Test2()
    Data = Application.InputBox("Kullanıcı Numarası Girin", "Veri girişi...", Type:=1)
    If Not Data = False Then
        ActiveSheet.Pictures.Insert "http://www.ornek.com/resimler/calisanlar/" & Data & ".jpg"
    End If
End Sub

 

[karzer]

çok teşekkür ederim problemi çözdünüz çok sağolun...

 

[karzer]

Gelen resmi beli bir aralığada koya bilirmiyiz acaba mesela resim F30 hücresinin altında çıkabilirmi acaba

 

[Haluk]

Gelen resmi beli bir aralığada koya bilirmiyiz acaba mesela resim F30 hücresinin altında çıkabilirmi acaba

Yukarıdaki InsertPic3 isimli makro o işi yapıyor zaten...


.

 

[Haluk]

Gelen resmi beli bir aralığada koya bilirmiyiz acaba mesela resim F30 hücresinin altında çıkabilirmi acaba

Yukarıdaki InsertPicture3 isimli makro o işi yapıyor zaten...


.

 

[karzer]

Çok sağol üsteki kodda çok yaradı