Invalid picture

[av8tordude]

I'm getting "Invalid Picture" error when I run this code. Would like assistance to understand why?



Sub PLCandlesticks()
Dim MyChart As Chart, OHLCChart As ChartObject
Dim FName As String


Set Wks = ActiveSheet
Set OHLCChart = Wks.ChartObjects.Add(Left:=Range("a9").Left, Width:=400, Top:=Range("a9").Top, Height:=250) 'Create candlestick chart


With OHLCChart.Chart
.ChartArea.Height = 360
.ChartArea.Width = 699
.SetSourceData Source:=Range("tblChartData")
.ChartType = xlStockOHLC
.Axes(xlCategory).CategoryType = xlCategoryScale
.HasLegend = False
.PlotArea.Format.Fill.ForeColor.RGB = RGB(220, 230, 241)
.ChartArea.Format.Line.Visible = msoFalse
.Axes(xlCategory).TickLabelPosition = xlTickLabelPositionLow
With .ChartGroups(1)
.UpBars.Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
.DownBars.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
End With
.Parent.Name = "OHLC Chart"
End With


Set MyChart = Wks.ChartObjects("OHLC Chart").Chart
FName = Environ("temp") & "\temp.gif"
MyChart.Export Filename:=FName, FilterName:="GIF"


frmChart.Image.Picture = LoadPicture(FName)
Wks.ChartObjects(1).Delete
Kill FName
End Sub