Resim boyutlarını değiştirme

[vivident]

Merhaba

Ekteki dosyamda ; bilgisayarımdaki herhangi bir resmi seçip, ayrı bir klasöre kopyalıyorum. Kopyaladığım resmide userform2'de açıyorum

Yapmak istediğim bilgisayarımdaki herhangi bir resmi seçip (Örn:800x600) ;
Seçilen resmi 320x240 boyutlarına indirerek klasöre kopyalama işlemi yapmak. Hem boyut olarak yer kaplamamış olacak, hemde görsel işlevsellik sağlamış olacağım

Dosyam ektedir

 

[vivident]

Konu Günceldir

 

[vivident]

Photoresize adlı bir program var. Excel eklentili. Bazı örnek uygulamalarda yapılmış. Ben dosyama adapte etmeye çalıştım, hedef klasörü içindeki resimlerin boyutlarını istenilen boyuta dönüştürebiliyor. Yanlız başka klasörden hedef klasöre resim yüklerken boyutunu değiştiremediğim

Bu proğram hakkında bilgisi olan varmı ? Kullanılan kod aşağıdaki gibi
Proğramı ekteki dosya ile birlikte yükledim. Değerli hocalarımın yardımlarını bekliyorum

Shell ThisWorkbook.Path & "\Arsivfoto\PhotoResize400x300.exe ""-o"" " & ThisWorkbook.Path & "\Arsivfoto\" & TextBox1.Value & ".jpg", vbHide