Excel sayfasinin ekran resmini masaustune jpg olarak kaydetmek

[enurbadenum]

Excel calisma sayfasinin A1-Z100 hucreleri arasinin ekran resmini alip istenilen klasore jpg olarak yapistirmak istiyorum fakat resim tamamen beyaz olarak bos kaydediliyor. Sorunun cozumu sizce ne olabilir?


Sub SaveScreenshotAsJPG()
'Get the current active sheet
Dim mySheet As Worksheet
Set mySheet = ActiveSheet
'Take a screenshot of the worksheet
mySheet.Range("A1:Z100").CopyPicture
'Create a new chart
Dim myChart As Chart
Set myChart = mySheet.ChartObjects.Add(0, 0, mySheet.Range("A1:Z100").Width, mySheet.Range("A1:Z100").Height).Chart
'Paste the screenshot into the chart
myChart.Paste
'Save the chart as JPG
myChart.Export "U:\Services_Zuid\Screenshot.jpg", "JPG"
'Delete the chart
myChart.Parent.Delete
End Sub

 

[Muzaffer Ali]

Kodları F8 ile manuel çalıştırınca oluyor ama F5 ile çalıştırınca boş sayfa kaydediyor. Çözemedim.

 

[Korhan Ayhan]

İnceleyiniz.

Sorgu için arama sonuçları: chartobjects+beyaz

www.excel.web.tr

 

[enurbadenum]

İnceleyiniz.

Sorgu için arama sonuçları: chartobjects+beyaz

www.excel.web.tr

Maalesef verdiginiz linkleri inceledim fakat hicbirisi isime yaramadi. Hala ayni sorun devam ediyor. 1 tus ilebelirli hucre araliginin resmini cekip masaustune kaydetmesini istiyorum. Yukaridakinden farkli bir kod olsa da olur. Bir cok kod denedim ama maalesef olmadi