İnternet üzerinden hücreye degere baglı resmi getırmek

[karslan18]

Sub Resim_Al()
Range("A1").Select
ActiveSheet.Pictures.Insert "http://www.excel.web.tr/derres/huseyin/en-son-dersler.png"
End Sub

Arkadslar yukarıdakı kod ıle düğme yardımıyla excel sayfama resım getırıyorum ama benım ıstedıgım düğme yardımı ile degıl d8 hücresıne gırdıgım degere gore resmın oldugu sıteden (Örnek:https://örnek/Proje/123.jpg) f7 hücresıne resmı getırmesı, d8 degıstıgınde resmınde degısmesı, degıştir komutunu d8 hücresınde gore algılaması, yanı d8 hücresıne ali yazdıgımda sıte den alinin resmını f7 hücresıne getırsın, d8 e mehmet gırdıgımde sıteden f7 hüctesıne mehmetın resmını getırsın... sıtede tum degerlerın karsılıgı resımler var yanı...

şimdiden tesekkurler....

 

[halit3]

Sub Resim_Al()
Range("A1").Select
ActiveSheet.Pictures.Insert "http://www.excel.web.tr/derres/huseyin/en-son-dersler.png"
End Sub

Arkadslar yukarıdakı kod ıle düğme yardımıyla excel sayfama resım getırıyorum ama benım ıstedıgım düğme yardımı ile degıl d8 hücresıne gırdıgım degere gore resmın oldugu sıteden (Örnek:https://örnek/Proje/123.jpg) f7 hücresıne resmı getırmesı, d8 degıstıgınde resmınde degısmesı, degıştir komutunu d8 hücresınde gore algılaması, yanı d8 hücresıne ali yazdıgımda sıte den alinin resmını f7 hücresıne getırsın, d8 e mehmet gırdıgımde sıteden f7 hüctesıne mehmetın resmını getırsın... sıtede tum degerlerın karsılıgı resımler var yanı...

şimdiden tesekkurler....

Aşağıdaki linklerdede benzer sorularınız var bir soru için bu kadar başlık açmanıza gerek yok sorunuzu güncellemeniz yeterli !

http://www.excel.web.tr/f48/nternet-uzerinden-resmi-ko-ullu-yerle-tirmek-t124285.html
http://www.excel.web.tr/f14/nternet-uzerinden-hucreye-resmi-ko-ullu-yerle-tirmek-t124305.html



Örnek linkinizde açılmıyor bu durumda size yardımcı olacak kimse kodu deneyecek ve çalışmadığını görecek ve yardım etmekten vazgeçecektir.
https://örnek/Proje/123.jpg

Yukarıdaki linkin birindede size cevap vermişler.

 

[karslan18]

Konuya ek olarak

Sub Resim_Al()
Range("A1").Select
ActiveSheet.Pictures.Insert "http://www.bebekkokusu.com/news/thumbnails/205.gif"
End Sub

Halit kardeş yukarıdakı kod ıle düğme yardımıyla excel sayfama resım getırıyorum bu kodu benım actıgım konularda bana cevap veren arkadastan aldım. ama benım ıstedıgım düğme yardımı ile degıl d8 hücresıne gırdıgım degere gore resmın oldugu (http://www.bebekkokusu.com/news/thumbnails/205.gif ) sıteden f7 hücresıne resmı getırmesı, d8 degıstıgınde resmınde degısmesı, degıştir komutunu d8 hücresınde gore algılaması, yanı d8 hücresıne 205 yazdıgımda sıte den 205'in resmını f7 hücresıne getırsın, d8 hücresine 2319 gırdıgımde sıteden f7 hüctesıne 2319'un resmını getırsın... http://www.bebekkokusu.com/news/thumbnails/ sıtesınde bu 205 ve 2319 'un karsılıgı resımler var..
Halıt kardes daha oncekı mesajımda ornek sıte koymustum sadece suan bu koymus oldugum sıte calısıyor senın ve yardımı olabılecek tum arkasların yardımlarını beklıyorum

şimdiden tesekkurler....

 

[halit3]

Sayfaya image nesnesi ekliyerek yapılmıştır.

kod:

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 resim(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), resim
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D8")) Is Nothing Then Exit Sub
Cancel = True
aranan = Cells(8, "d").Value
deg = "[URL]http://www.bebekkokusu.com/news/thumbnails/[/URL]"
Sheets(ActiveSheet.Name).Image1.Picture = LoadPicture(None)
Sheets(ActiveSheet.Name).Image1.Visible = False
Sheets(ActiveSheet.Name).Image1.Visible = True
Sheets(ActiveSheet.Name).Image1.Picture = resim(deg & aranan & ".gif")
End Sub

 

[karslan18]

halit kardeş çok teşekkür ederim.tam istediğim şeklide yapmışsınız.elinize sağlık.

tekrar teşekkürler.....