[VBA] Web Den Resim Linklerini Alma

src resme ait bağlı kaynak olmayıp, kopyalanan resme ait kaynaktır.
Resim boyutlarını ayarlanabilir, resim yüklenen yerdeki çözünürlük kalitesine göre olduğundan, önerim bulunmamaktadır. Resimlerin kalitesini de resim isleme programları ile yapılabilir.

Visual Basic

Function ResmiBoyutlandir(DosyaYolu As string, Genislik As Long, Yukseklik As Long)
'On Error Resume Next
Dim YResim As Object, trz As Object, Kopya As String
Kopya = DosyaYolu
Set YResim = CreateObject("WIA.ImageFile")
Set trz = CreateObject("WIA.ImageProcess")
YResim.LoadFile (Kopya)
trz.filters.Add (trz.FilterInfos("Scale").FilterID)
trz.filters(1).Properties("MaximumWidth").Value = Genislik         'Genişlik
trz.filters(1).Properties("MaximumHeight").Value = Yukseklik     'Yükseklik
Set YResim = trz.Apply(YResim)
 If Not Dir(Kopya) = vbNullString Then Kill Kopya
YResim.SaveFile (Kopya)
 End Function