Excel Chart - Paste Special as Picture in Excel Itself

Hi All,

I am working on a report and it needs to be generated daily. After generating and creating charts, I need to paste special those charts as "Pictures". Is there any way to do this? And also i need to paste special every single chart in the work book. I already done a code but it not working properly.. and the important point is i need to paste special the chart at the exact position where i intended to cut. Is this possible???

Pls treat this as emergency and advice me on this.

Thanks in advance..

Regards
Mohan

Hi Noob,

When i click on the chat the camera button become inactive.. then how can I take a snapshop of the chart.

And my question is how to paste special that chart in the exact location where I am going to replace that chart with the picture

Here is the code which i written and it works to some extent.

Pls advice if you have any suggestions..

Sub ChartPSpecial()
Dim LPos, TPos, Ht, Wd
MsgBox ActiveSheet.ChartObjects.Count
For i = 1 To ActiveSheet.ChartObjects.Count
'For Each chrt In ActiveSheet.ChartObjects
ActiveSheet.ChartObjects(i).Activate
LPos = ActiveSheet.ChartObjects(i).Left
TPos = ActiveSheet.ChartObjects(i).Top
Ht = ActiveSheet.ChartObjects(i).Height
Wd = ActiveSheet.ChartObjects(i).Width
MsgBox LPos & TPos & Ht & Wd
ActiveSheet.ChartObjects(i).Cut
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _
, DisplayAsIcon:=False
ActiveSheet.Pictures(i).Left = LPos
ActiveSheet.Pictures(i).Top = TPos
Next i
'MsgBox chrt.ChartArea
'Next chrt
End Sub