imaj almak

[ercanbrisa]

merhaba
oldukça büyük bir excel dosyasında grafik sayfaları ve birçok pivot ve makro var
bu xls dosyası içerisinden bir sayfayı örneğin "grafik1" içerisinde iki adet grafik bir adet pivot grafiği ve üç adet te başka sayfalardaki pivotlardan değer alan tablolar var dosyanın bu sayfasını başkasına göndermek istediğimde en kolay ve kullanışlı yol söz konusu sayfanın örneğin " a1:ab45" bölgesini copy yapıp sonra bir resim programına örnepin " paint shop" yapıştırıp gif dosyası olarak kaydetmek daha sonra mail olarak göndermek

bunu bir butona basıldığında makro ile nasıl yapabilirim ( mail olarak göndermek hariç sadece gif olarak kaydetmek) bazı yabancı sitelerde birşeyler var fakat tam olarak kendime uyarlayamadım

ilgilenenlere teşekkürler

 

[ercanbrisa]

teşekkür ve özür

ilgilenenlere teşekkürler
konuyla ilgili gerekli bilgiye ulaştım forum eçerisinde başka bir adda buldum

grftarih = Sheets("veri").Cells(2, 12).Value
Dim objTemp As Object
Dim chtMyChart As Chart
Dim rngImg As Range
Set rngImg = Sheets("1").Range("A1:CN64")
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:\My Documents\Presentation\2006\" & grftarih & "\" & grftarih & "1" & ".jpg"
.Parent.Delete
End With
.Delete
End With

Set rngImg = Nothing
Set objTemp = Nothing