help refreshing a image in userform

[JasonLeVan]

Sub userchart248()

Set Currentchart = Sheets("248chart").ChartObjects(1).Chart
fname = ThisWorkbook.Path & "\248chart.gif"
Currentchart.Export Filename:=fname, filtername:="GIF"
End Sub


here is a code i am using to take a chart that is on tab 248chart and save it to a image, i would then like to put that image into a userform which i can do, my problem is when the image is changed and resaved i pull up the old image not the new one in my userform, how can i make the userform reload, or refresh that image

 

[JamesW]

Hi there,

This is how I do it:

Private Sub UserForm_Initialize()
    ChartNum = 1
    UpdateChart
End Sub

Private Sub UpdateChart()
    Set CurrentChart = Sheets("YTD PIVOT & CHART").ChartObjects(ChartNum).Chart

    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"

    Image1.Picture = LoadPicture(Fname)
End Sub

 

[JasonLeVan]

i kinda understand, so this code below, i copy and put into the userform code area or the workbook area, thats where i am confused, and also where it says temp.gif and it be the file i chose to name it or is the temp relevent to making this work. thanks

Hi there,

This is how I do it:

Private Sub UserForm_Initialize()
    ChartNum = 1
    UpdateChart
End Sub
 
Private Sub UpdateChart()
    Set CurrentChart = Sheets("YTD PIVOT & CHART").ChartObjects(ChartNum).Chart
 
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"
 
    Image1.Picture = LoadPicture(Fname)
End Sub

 

[MickG]

http://www.mrexcel.com/forum/showthread.php?p=2669764

 

[JasonLeVan]

that worked, thanks

http://www.mrexcel.com/forum/showthread.php?p=2669764