Jpeg Dosyasi Yapma

[ANTALYA 01]

Merhabalar

Altgr+Printscreen Sysrg Tuşuna bastığımızda Exel ekranının Fotokobisini çekiyoruz sağ klik yapıştır dediğimizde resim olarak ekranda isteğimiz gibi küçültiüp büyütebiliyoruz.Benim merak ettiğim.Bu Resmi JPEG Dosyası yapılabilir mi ?Exel Ekran fotokobisini

 

[Haluk]

Paint programını çalıştırıp, kopyaladığınızı yapıştırın ve *.jpg olarak kaydedin.

 

[Haluk]

Aktif çalışma sayfasında kullanılan alanın resmini *.jpg olarak PC'e VBA kullanarak kaydetmek isterseniz;

Sub Test()
  Dim objTemp As Object
  Dim chtMyChart As Chart
  Dim rngImg As Range
  Set rngImg = ActiveSheet.UsedRange
  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

 

[ANTALYA 01]

D

Cevab için teşekkür ederim.Bunuda öğrenmiş olduk.Daha neler öğreneceğiz bakalım sizilerin sayesinde

 

[hsayar]

snhaluk kodlar için teşekkür ederim... aradığım buydu...
kayıt işini
1) kaydet diyolog pencresi ile yapmak istersek nasıl olmalı
2) kayıtları temp_000.jpg oarak başlatıp, temp_000.jpg varsa temp_001 şeklinde kaydetmek oda varsa temp_002 gibi kaydetmek nasıl olmalıdır. saygılraımla.

 

[downsoon]

Benim de buna benzer bi ihtiyacım var ama biraz farkla;

A1-F32 arasındaki bölümü L1 de yazan isimle kaydediyorum. olabiliyorsa L2 sütunundaki mail adresine gönderilmesini" istiyorum, mümkün müdür sizce.

 

[ulusinan]

güzel uygulama