Resim dosyanı açmak ve farklı kaydetmek

[tamer42]

Selamlar,

"C:\RESIMLERIM\" klasörü altındaki Bir resim dosyasını açarak, farklı kaydetmek ve kapatmak işlemleri yapacak bir koda ihtiyacım var,

Ã?rnek:

11111.jpg adlı dosyayı aç,

22222.jpg olarak farklı kaydet....ve kapat

Herkese iyi çalışmalar dilerim....

 

[Haluk]

Merhaba;

Eğer resim dosyasının mutlaka açılması şart değilse;

[vb:1:aa35a28f90]Sub Test()
Dim PicFile1 As String, PicFile2 As String
PicFile1 = "C:\Resimlerim\11111.jpg"
PicFile2 = "C:\Resimlerim\22222.jpg"
Name PicFile1 As PicFile2
End Sub
[/vb:1:aa35a28f90]

 

[tamer42]

Selamlar,

Sn Raider
İlginize çok teşekkür ediyorum....

Resim dosyasını açmam gerekiyor, çünkü farklı kaydet ile kaydedip farklı bir isimle kaydedeceğim, bazılarının uzantısını (*.bmp) değiştirmem de gerekebilir,

İyi Çalışmalar...

 

[Haluk]

Tamer bey;

VBA'nin "obje" olarak desteklemediği bir uygulama üzerinde o tip işlemler yapamazsınız.

Ama, yukarıdaki yöntemle uzantısını değiştirebilirsiniz. Uzantısını değiştirmek, dosyanın formatını değiştirmez...

PicFile1 = "C:\Resimlerim\11111.jpg"
PicFile2 = "C:\Resimlerim\22222.bmp"
Name PicFile1 As PicFile2