Option Explicit
Sub LoadForm()
frmCharts.Show
End Sub
Sub ChangeChart(ChartName As String)
Dim CurrentChart As Chart, FName$
FName = ThisWorkbook.Path & "\temp.gif"
Set CurrentChart = ThisWorkbook.Sheets("Charts").ChartObjects(ChartName).Chart
CurrentChart.Export FileName:=FName, filtername:="GIF"
frmCharts.imgChart.Picture = LoadPicture(FName)
End Sub