Hücre ve Link

[kukijiro]

Merhabalar,

sitemde www.abc.com/12345.jpg
www.abc.com/56789.jpg
gibi sonundaki sayı değişecek şekilde resim linklerim mevcut.

ben bir hücreye bu sayılardan birini girdiğim zaman ayrı bir pencerede o resim açılsın istiyorum. Bunu nasıl yapabilirim. Forumu araştırdım fakat birşeye rastlayamadım. Anlatabilirseniz ya da ilgili konunun linkini verebilirseniz memnun olurum.

Şimdiden teşekkür ederim.

 

[Merhum İdris SERDAR]

.

Resimleri ben göremiyorum.

İstediğiniz buna benzer bir şey mi?

http://www.excel.web.tr/f125/stanbul-canly-t112356.html

.

 

[Murat OSMA]

Ek'teki dosyayı bir deneyiniz.

A sütununa rakamları yazıp görüntüleyebilir, dilerseniz A sütununda yazılı rakamları seçerekte resminizi görüntüleyebilirsiniz..

■ Sayfa kodları;

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then UserForm1.Show
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty(Target.Value) Then Exit Sub
If Target.Column = 1 Then UserForm1.Show
End Sub

■ UserForm kodları;

Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Private Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
 
Public Function ExcelVBANet(ByVal url As String) As Picture
    Dim IPic(15) As Byte
    CLSIDFromString StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"), IPic(0)
    OleLoadPicturePath StrPtr(url), 0&, 0&, 0&, IPic(0), ExcelVBANet
End Function
 
Private Sub UserForm_Initialize()
    Dim resmim As String
    TextBox1.Text = "http://www.haberaktuel.com/images/news/" & ActiveCell.Offset(-1, 0) & ".jpg"
    TextBox1.BackColor = &HC0FFFF
    TextBox1.Visible = False
    resmim = TextBox1.Text
    Image1.Picture = ExcelVBANet(resmim)
    Me.Height = Image1.Height + 24
    Me.Width = Image1.Width
End Sub

 

[kukijiro]

Sayın Yurttaş sayın Murat

istediğim şey sizin örneklerinize benziyor fakat tam olarak değil

biraz daha detaylı anlatayım

internet sitemin serverındaki resimler örnekte belirtildiği üzere www.abc.com/12345.jpg'den başlıyor 99999.jpg ye kadar devam ediyor

benim istediğim a1 hücresine bu rakamlardan birini örneğin 45678 yazdığım zaman ilgili resmin ayrı bir explorer penceresinde veya excelin içinde de olabilir,açılması

diğer bir deyişle linkin sonunu (.jpg'den öncesini )değiştirebilecek bir makroya ihtiyacım var)

bir türlü başaramadım. değerli yorumlarınızı bekliyorum

NOT: yerel ağ olduğu için site ismi uydurmadır.

 

[Murat OSMA]

Benim yolladığım örnekte; A sütununa .jpg den önceki rakamları yazdığınızda o resmi form üzerinde görüntülüyor zaten. İstediğiniz de bu değil mi ? Ben mi yanlış anlıyorum ? Atladığım bir ayrıntı mı var acaba ?