Soru vba resim kalitesi

[ankara34]

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..

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

 

[Korhan Ayhan]

İnceleyiniz.

Userforma belirli alanın resmini yapıştırmak

Arkadaşlar merhaba, Userform'a kayıtlı resim ekleme ile ilgili çalışmalar buldum. Ama benim istediğim bu değil. Düğmeye tıkladığımızda Userform açılacak ve B2:G16 (satır sayısı değişken) aralığının resmini Userform'a yapıştıracak. Dosyada nasıl görünmesi ile ilgili görsel paylaştım. Userform...

www.excel.web.tr

 

[ankara34]

İnceleyiniz.

Userforma belirli alanın resmini yapıştırmak

Arkadaşlar merhaba, Userform'a kayıtlı resim ekleme ile ilgili çalışmalar buldum. Ama benim istediğim bu değil. Düğmeye tıkladığımızda Userform açılacak ve B2:G16 (satır sayısı değişken) aralığının resmini Userform'a yapıştıracak. Dosyada nasıl görünmesi ile ilgili görsel paylaştım. Userform...

www.excel.web.tr

Korhan bey inceledim yapamadım.
bilen arkadaşlar yardımcı olabilir diye mesaj güncellemesi yapıyorum
teşekkurler

 

[ankara34]

selamlar
konu güncel
hala bir çözüm bulamadım

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..

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

 

[ankara34]

iyi geceler arkadaşlar

konu güncel , sorunu çözemedim malesef