Userforms containing Graphs

Peter Rattigan

Board Regular
Joined
Oct 18, 2004
Messages
77
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


Code:
    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?
Code:
Image1.Picture = LoadPicture(Fname)

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

Some videos you may like

Excel Facts

How to create a cell-sized chart?
Tiny charts, called Sparklines, were added to Excel 2010. Look for Sparklines on the Insert tab.

Watch MrExcel Video

Forum statistics

Threads
1,118,455
Messages
5,572,229
Members
412,448
Latest member
ManuW
Top