siteden resim çekme

[stratejist]

Daha önce yaptım nasıl olduğunu unuttum. internet sitesinden bir resmi excel in içine çekebilyordum sitede resim değişince excel de de degişiyordu bunu nasıl yapabilirim.

 

[mustafaine1]

Sub deneme()
Dim URL As String
URL = Worksheets("Sheet1").Range("A1").Value
Range("A2").Select
ActiveSheet.Pictures.Insert(URL).Select
End Sub

A1 hucresine yazdiginiz bir Urldeki resmi A2 hucresine ekleyen bir kod, umarim isinizi gorur..

 

[stratejist]

macrosuz yapmıştım hatta bir siteyi kopyala yapıştır derken otomatik olmuştu sonra ben kullanmaya başlamıştım

 

[mustafaine1]

Ozel yapistir deyip HTML seceneginizi sectiginizde yapiyor olabilir. Ama bilgim yok..

 

[stratejist]

daha önce denemiştir o şekilde olmuyor