sevensuleyman
Altın Üye
- Katılım
- 9 Kasım 2012
- Mesajlar
- 178
- Excel Vers. ve Dili
- office 2010
- Altın Üyelik Bitiş Tarihi
- 08-12-2027
merhaba ; excellde resim olarak kaydettiğim excell dosyanı office 2019 da kullanamıyorum. resimler beyaz boş olarak akydetmektedir. kod nasıl düzeltebilriz.
Kod:
Private Sub CommandButton2_Click()
Dim objTemp As Object
Dim chtMyChart As Chart
Range("B8").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 & "\Kampanya " & Range("B3") & Format(Now, "( dd.mm.yyyy_hh.mm )") & ".png"
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.", , "UYARI"
Set objTemp = Nothing
End Sub