Userforms containing Graphs

[Peter Rattigan]

I have been searching this forum for info on creating a userform to display the graphs in my worksheet. I have found the code below to save the graph as a GIF. I have tried to make it work but I am having trouble with the syntax and was hoping someone could give me a hand with it. The file name is C:\Debt Projector and the sheet/chart is Sheets("loanportfolio").Chart(1).Chart

    Set CurrentChart = Sheets("Sheet1").ChartObjects(1).Chart
    Fname = ThisWorkbook.Path & "\temp.gif"
    CurrentChart.Export FileName:=Fname, FilterName:="GIF"

I presume I would load this code in the "This Workbook" area to run on opening so that the userform would display immediately.

Would the second portion of the code (below) run in the same sub routine?

Image1.Picture = LoadPicture(Fname)

Thanks for your help as I'm afraid my VB is pretty basic