Bir excel sayfasını resim formatına nasıl çeviririz.?

[talip]

Başlıktan da anlaşılacağı gibi excel sayfasını resim formatında kaydetmek istiyorum bunu nasıl yapabilirim.? Yardımcı olur musnuz.

 

[bahakara1923]

klavyeden print screen ile deneseniz olmuyomu?

 

[ersoyalan]

Merhaba,

http://www.excel.web.tr/showthread.php?t=54770&highlight=yakala linkteki yakala programını kullanabilirsiniz.

 

[talip]

Maalesef print tuşu benim istediğime tam olarak cevap vermiyor. Ben normal bir sayfayı yazdırır gibi jpg formatına atmak istiyorum, diğer yöntemlerde görüntü kalitesi düştüğü ve yazılar küçültüğü için (tam sayfa modunda iken) yapsamda bir fayda vermiyor.

 

[baka]

şu programı dene ( eğer moderatörler için sakıncası yoksa )

ben uzun süredir kullanıyorum..

http://www.e-pdfconverter.com/pdf-creator/index.html

 

[ECYavuz]

İyi Akşamlar;

İki Ayrı örnek hangisi beyenirseniz..

Belli bir isim altında kaydetmek
Sub Hucre_ScreenShot()
ChartObjects.Add(Left, Top, Width, Height)
Dim Pic As Picture, graf As Chart
On Error Resume Next
Kill "C:\Hücreresim.jpg"
Range("B2:J10").CopyPicture
Set Pic = ActiveSheet.Pictures.Paste
With Pic
.Copy
.Delete
End With
Set graf = ActiveSheet.ChartObjects.Add(1, 1, 700, 200).Chart
With graf
.Paste
.Export "C:\Hücreresim.jpg"
.Parent.Delete
End With
End Sub

Farklı kaydet seçeneği ile kaydetmek
Sub Hucre_ScreenShot()
ChartObjects.Add(Left, Top, Width, Height)
Dim Pic As Picture, graf As Chart, FSO As Boolean
DosyaAdi = Application.GetSaveAsFilename( _
fileFilter:="Resim Dosyası (*.jpg), *.jpg")
If DosyaAdi = False Then Exit Sub
FSO = CreateObject("Scripting.FileSystemObject").FileExists(DosyaAdi)
If FSO = True Then
Kill DosyaAdi
End If
Range("B2:J10").CopyPicture
Set Pic = ActiveSheet.Pictures.Paste
With Pic
.Copy
.Delete
End With
Set graf = ActiveSheet.ChartObjects.Add(1, 1, 700, 200).Chart
With graf
.Paste
.Export DosyaAdi
.Parent.Delete
End With
End Sub