Excel belgesini resim olarak kaydetme...

Bir iş için lazım olmuştu belki işinize yarar

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

Teşekkürler hocam