Image Nesnesine Web Sitesinden Resim Alma

Bu dosya, internetteki bir resmin adresi (URL) verilerek Excel içindeki bir Image nesnesine yüklenmesini gösteren makrolu bir örnektir. Resim hem Sayfa1 üzerindeki Image1 nesnesine hem de UserForm1 üzerindeki Image1 kontrolüne aktarılabilir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Resmi indirmek için internet bağlantısı gerekir; makro dış bağlantı kurar.

Dosyanın içeriği​

• Sayfa1: Açılışta resmin yüklendiği Image1 nesnesi bu sayfada bulunur. Hücrelerde veri yoktur.
• UserForm1: Form açılırken resmi Image1 kontrolüne yükleyen kodu içerir.

Makrolar​

• LoadPictureFromURL: Hem ThisWorkbook hem UserForm1 modülünde yer alan fonksiyondur. Verilen URL'yi ole32 ve oleaut32 kütüphanelerindeki CLSIDFromString ve OleLoadPicturePath API işlevleriyle okur ve bir Picture nesnesi olarak döndürür.
• Workbook_Open: Dosya açıldığında çalışır ve fonksiyonla aldığı resmi Sayfa1 üzerindeki Image1 nesnesine yerleştirir.
• UserForm_Initialize: UserForm1 açıldığında çalışır ve aynı resmi formdaki Image1 kontrolüne yükler.

Kodda örnek olarak bir GIF dosyasının adresi tanımlıdır. Kod yalnızca dış adresten resim okur; dosya silme ya da veri gönderme işlemi yapmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin; Sayfa1'deki Image1 nesnesine resim otomatik yüklenir.
2. Formu görmek için VBA düzenleyicisinde (Alt+F11) UserForm1'i seçip F5 tuşuyla çalıştırın.
3. Farklı bir resim için Workbook_Open ve UserForm_Initialize içindeki URL'yi değiştirin.
4. Başka bir nesneye yüklemek için fonksiyon çağrısındaki Image1 adını ilgili nesnenin adıyla değiştirin.

Resim adresi erişilemezse ya da adres geçersizse yükleme hata verir.