fijate si esto te sirve...
(tenés que poner un componente Image dentro del UserForm)
Private Sub btnLoadChart_Click()
Dim C As Chart
Dim sFileName$
'Dim t!
On Error Resume Next
sFileName = ActiveWorkbook.Path & "\" & Mid(CStr(Rnd), 3) & ".gif"
Set C = Worksheets("Hoja1").ChartObjects(1).Chart
C.Export sFileName
't = Timer
'Do While Timer < t + 2 'Pausa
' DoEvents
'Loop
If Dir(sFileName) <> "" Then
Image1.Picture = LoadPicture(sFileName)
End If
Set C = Nothing
Kill sFileName
End Sub
Saludos desde Baires, JuanC