excel ve word dosyalarını jpeg, tif, bmp formatına çevir

[mbagcaci]

excel ve word dosyalarını jpeg, tif, bmp formatına çeviren bir programa ihtiyacım var. İnternette paralı bazı converterler buldum. ama benim istediğim ya ücretsiz olması yada programın çeviri yapan kısmını kendi programımda kullanabileceğim bir program. yada bu çeviri işlemini yapabilmenin bir yolu. yardımcı olursanız sevinirim.

 

[Haluk]

Eğer amacınız, Excel'de çalışma sayfasının sadece belli bir bölümünü alıp da JPEG formatına çevirmek ise ... bu VBA ile yapılabilir.

 

[oduru]

görüntüyü, amacın resim olarak almak ise printscrneen (Pscr) tuşu işine yarar sanırım. elde ettiğin görüntüyü de resim düzenleyen her hangi bir programla jpeg ve ya diğer resim türlerine çevirebilirsin.

 

[mbagcaci]

haluk bey excel sayfasının bir bölümü de olabilir, tüm ecxel dosyasıda olabilir. bunun vb'de nasıl yapılacağını anlatabilirseniz çok sevinirim.

 

[Haluk]

Aktif sayfada A120 aralığını C:\Temp.jpg olarak kaydeder.

Sub Test()
  Dim objTemp As Object
  Dim chtMyChart As Chart
  Dim rngImg As Range
  Set rngImg = Range("A1:D20")
  rngImg.Copy
  Set objTemp = ActiveSheet.Shapes.AddShape(1, 1, 1, 1, 1)
  objTemp.Select
  ActiveSheet.Paste
  objTemp.Delete
  With Selection
      .CopyPicture 1, 2
      Set chtMyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width, .Height).Chart
  With chtMyChart
      .Paste
      .Export "C:\Temp.jpg"
      .Parent.Delete
  End With
  .Delete
  End With
  MsgBox "Resim, C:\Temp.jpg olarak kaydedildi..."
  Set rngImg = Nothing
  Set objTemp = Nothing
End Sub

 

[baykala]

sayın haluk...
kodlar mükemmel olmuş elinize, yüreğinize ve aklınıza sağlık...Ancak üzerine yazmak yerine "c:\temp_001,002,003.jpg şeklinde sıralayabilirmiyiz acaba...?

 

[Haluk]

...Ancak üzerine yazmak yerine "c:\temp_001,002,003.jpg şeklinde sıralayabilirmiyiz acaba...?

Þöyle bir şey kullanılabilir;

Sub Test2()
  Dim objTemp As Object
  Dim chtMyChart As Chart
  Dim rngImg As Range
  Dim No As Long
  Dim TempName As String
  No = Range("AA1") + 1
  Range("AA1") = No
  Range("AA1").NumberFormat = "000"
  Set rngImg = Range("A1:D20")
  rngImg.Copy
  Set objTemp = ActiveSheet.Shapes.AddShape(1, 1, 1, 1, 1)
  objTemp.Select
  ActiveSheet.Paste
  objTemp.Delete
  TempName = "C:\Temp_" & Range("AA1").Text & ".jpg"
  With Selection
      .CopyPicture 1, 2
      Set chtMyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width, .Height).Chart
  With chtMyChart
      .Paste
      .Export TempName
      .Parent.Delete
  End With
  .Delete
  End With
  MsgBox "Resim, " & TempName & " olarak kaydedildi..."
  Set rngImg = Nothing
  Set objTemp = Nothing
End Sub

 

[baykala]

çalışma alanını resim olarak kaydetme

sayın haluk...
kodlar mükemmel olmuş elinize, yüreğinize ve aklınıza sağlık...Ancak üzerine yazmak yerine "c:\temp_001,002,003.jpg şeklinde sıralayabilirmiyiz acaba...?

demiştim... anında güncellemeniz geldi...süper oldu...dileklerimi tekrarlıyorum... ve örnek dosyayı da ekliyorum...Ancak ben affınıza sığınarak küçük bi değişiklik yaptım... "c:\excelres\temp_001" şeklinde c ana alanı içinde bir klasöre kaydı alıyorum...

 

[mbagcaci]

hepinizin ellerine sağlık. çok teşekkür ederim.
fakat kodu yazıp çalıştırınca .Export TempName satırında hata veriyor.
Hata : Run Time error 1004
Method ‘Export’ of object ‘_chart’ failed

Eğer sende fazla oldun artık demezseniz bu çevirme işlemini word belgeleri için yapabileceğim bir kodda yazabilirmisiniz.
çok teşekkür ederim.

 

[mbagcaci]

hepinizin ellerine sağlık. çok teşekkür ederim.
fakat kodu yazıp çalıştırınca .Export TempName satırında hata veriyor.
Hata : Run Time error 1004
Method ‘Export’ of object ‘_chart’ failed

Eğer sende fazla oldun artık demezseniz bu çevirme işlemini word belgeleri için yapabileceğim bir kodda yazabilirmisiniz.
çok teşekkür ederim.

 

[baykala]

c:\ içine "excelres" adında bir klasör açmadığınız için kaydedeceği klasörü bulamadığından hata veriyor...c:\ ana alanı içine "excelres" adında bir klasör açıp tekrar deneyin lütfen

 

[mbagcaci]

çok fazla oldun artık demesseniz bir sorum daha olacak.
iki sayfadan oluşan bir rtf dosyanız olduğunu düşünün. bu dosyayı açmadan her iki sayfayıda (1.jpg, 2.jpg şeklinde)ayrı ayrı jpg formatına dönüştüren bir koda ihtiyacım var.
Yardımlarınız için şimdiden çok teşekkür ederim.

 

[SEMAY77]

Merhaba Arkadaşlar.Ben excell sayfasını jpeg olarak c' nin içine atmak istiyorum.Fakat benim dosyam paylaşımlı ve bu dosya içinde kopyala yapıştır yapmama izin vermiyor.Bu yüzden kopyala yapıştır yapmadan sayfayı direk C'nin içine Jpeg olarak atabilirmiyim.İlginiz için şimdiden Teşekkür ederim.

 

[excel_tanrisi]

bence direk bulzip pdf yazıcısını yükleyin.Ve dosyanız ister excelde isterse direk office programlarında olsun yazdırma ekranında seçeneği siz belirleyebilirsiniz.Jpg,pdf vs..