- Katılım
- 9 Eylül 2021
- Mesajlar
- 94
- Excel Vers. ve Dili
- 365TR
selamlar
alttaki kodla sayfadaki resimleri klasöre kaydediyorum.
ama resim kalitesi çok düşüyor.
dosya uzantılarını jpeg png bmp vs olarak değiştirsemde sonuç kalite düşüyor.
aynı işi resim üzerinde sağ klick resim olarak kaydet dediğimde kalite mükemmel oluor ama vba den işlem yapınca kalite düşüyor.
alttaki kodu revize edebilirmiyiz bir çözümü varmıdır..
alttaki kodla sayfadaki resimleri klasöre kaydediyorum.
ama resim kalitesi çok düşüyor.
dosya uzantılarını jpeg png bmp vs olarak değiştirsemde sonuç kalite düşüyor.
aynı işi resim üzerinde sağ klick resim olarak kaydet dediğimde kalite mükemmel oluor ama vba den işlem yapınca kalite düşüyor.
alttaki kodu revize edebilirmiyiz bir çözümü varmıdır..
Kod:
Sub RESIM_KAYDET()
Dim ch As Chart
Set ch = Charts.Add
ch.Location xlLocationAsObject, "Sayfa1"
Set ch = ActiveChart
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.CopyPicture
Dim originalWidth As Double
Dim originalHeight As Double
originalWidth = sh.Width
originalHeight = sh.Height
ActiveSheet.ChartObjects(1).Width = originalWidth
ActiveSheet.ChartObjects(1).Height = originalHeight
ch.Paste
ch.export "C:\Users\ders\Desktop\konular\" & sh.Name & ".png"
Next sh
End Sub