Excel içeriği resim olarak kaydet

bthn35

Altın Üye
Katılım
12 Kasım 2009
Mesajlar
191
Excel Vers. ve Dili
365 ProPlus TR
Maalesef gene bombos geliyor resim, acaba yetkiyle ilgili birsey mi?
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Eklenen dosyada denediniğinizde Resim olup, içerisi mi boş.
Masa üstünde izma.jpg adında bir dosya oluşuyor mu?
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Masa üstündeki resmi "Paint" gibi bir Windows uygulaması ile açıp deneyin.
 

bthn35

Altın Üye
Katılım
12 Kasım 2009
Mesajlar
191
Excel Vers. ve Dili
365 ProPlus TR
Sonuç alttaki gibi, Windows 10 olmasıyla bir ilgisi olabilir mi?

 

igultekin2000

Altın Üye
Katılım
5 Eylül 2007
Mesajlar
1,236
Excel Vers. ve Dili
ofis 2010
Sonuç alttaki gibi, Windows 10 olmasıyla bir ilgisi olabilir mi?

Kod:
Sub jpg_kaydet()
On Error Resume Next
Call dosyayısil
  Dim objTemp As Object
  Dim chtMyChart As Chart
  Dim rngImg As Range
  Dim No As Long
  Dim TempName As String
  Set rngImg = Range("A1:AE44") 'resim alanını burda belirleyin
  rngImg.Copy
  Set objTemp = ActiveSheet.Shapes.AddShape(1, 1, 1, 1, 1)
  objTemp.Select
  ActiveSheet.Paste
  objTemp.Delete
  TempName = Range("AH1")
  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 Alanı , " & TempName & " olarak kaydedildi.", , "Excel'i sevmeyen NEZLE olsun."
  Set rngImg = Nothing
  Set objTemp = Nothing
End Sub
kendi kullandığım örnekten, formdan almıştım
 

Ekli dosyalar

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sonuç alttaki gibi, Windows 10 olmasıyla bir ilgisi olabilir mi?

1547582079564.png
Deneyin:
Yazı ve Logo alanı (A1:L5) aralığını seçin.
Yukarıdaki resimde anlatıldığı gibi kopyalayın.
Sonra "Paint" programınızı açın ve "Yapıştırın".
Çıkan sonuç ne oluyor, bakın.
Eğer yine BOŞ görüntü çıkıyorsa; clipborad.dll sorunu var demektir.
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Birde bu kodu dene
Bu kod resimi dosyanın yanına çıkartıyor.

Kod:
Sub resim_kaydet()

Dim objTemp As Object
Dim chtMyChart As Chart

Range("A1:L5").Copy

Set objTemp = ActiveSheet.Shapes.AddShape(1, 1, 1, 1, 1)
objTemp.Select
ActiveSheet.Paste
objTemp.Delete

klasor = ThisWorkbook.Path
say = CreateObject("Scripting.FileSystemObject").GetFolder(klasor).Files.Count + 1
dosya = klasor & "\Resim " & say & ".jpg"


With Selection
.CopyPicture 1, 2
Set chtMyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width, .Height).Chart
With chtMyChart
.Paste
.Export dosya
.Parent.Delete
End With
.Delete
End With
MsgBox dosya & Chr(10) & " olarak kaydedildi.", , "UAYRI"

Set objTemp = Nothing
End Sub
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Teşekkürler iyi çalışmalar
 

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
2,945
Excel Vers. ve Dili
Office 2013 İngilizce
Birde bu kodu dene
Bu kod resimi dosyanın yanına çıkartıyor.

Kod:
Sub resim_kaydet()

Dim objTemp As Object
Dim chtMyChart As Chart

Range("A1:L5").Copy

Set objTemp = ActiveSheet.Shapes.AddShape(1, 1, 1, 1, 1)
objTemp.Select
ActiveSheet.Paste
objTemp.Delete

klasor = ThisWorkbook.Path
say = CreateObject("Scripting.FileSystemObject").GetFolder(klasor).Files.Count + 1
dosya = klasor & "\Resim " & say & ".jpg"


With Selection
.CopyPicture 1, 2
Set chtMyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width, .Height).Chart
With chtMyChart
.Paste
.Export dosya
.Parent.Delete
End With
.Delete
End With
MsgBox dosya & Chr(10) & " olarak kaydedildi.", , "UAYRI"

Set objTemp = Nothing
End Sub
Merhabalar,

Kodları çalışırmayı denerken ekli hatayı verdi ama;

sebebi ne olabilir?

iyi Çalışmalar.
 

Ekli dosyalar

Üst