Visual Basic para Aplicaciones - pasar grafico de excel a formulario

Dim C As Chart

Dim sFileName$

On Error Resume Next

sFileName = ActiveWorkbook.Path & "\" & Mid(CStr(Rnd), 3) & ".gif"

Set C = Worksheets("Hoja1").ChartObjects(1).Chart

C.Export sFileName

If Dir(sFileName) <> "" Then

   Me.Width = 2 * C.ChartArea.Width + 5

   Me.Height = 2 * C.ChartArea.Height + 25

   Image1.Height = 2 * C.ChartArea.Height

   Image1.Width = 2 * C.ChartArea.Width

   Image1.Left = 0

   Image1.Top = 0

   Image1.Picture = LoadPicture(sFileName)

End If

Set C = Nothing

Kill sFileName