How to show a PivotChart in UserForm

Hi experts,

I am trying to show a PivotChart in a userform using the code below:

Sub ChangeChart (ChartName As String)
    Dim CurrentChart As Chart
    Dim FName As String

    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

However, I am getting the below error msg:

Run-time error - The item with the specified name wan't found

I believe I am using the incorrect object (chart) but not sure how to add a pivot chart in the line code.

Appreciate any help.

Hi KjBox,

Thanks for replying, actually I am using two option buttons to populate the ChartName parameter. Though not sure why the code work only for the first chart (Chart2wks)) and when I select the other chart (Chart3wks) I keep getting the error:

Runtime Error 481; Invalid Picture

Set
CurrentChart = ThisWorkbook.Sheets("Charts").ChartObjects(ChartName).Chart

2 wks coverage option button

Private Sub Opt2WksCov_Click()

Call ChangeChart("Chart2wks")

End Sub

3 wks coverage option button

Private Sub Opt3WksCov_Click()

Call ChangeChart("Chart3wks")

End Sub

Sub ChangeChart (ChartName As String)

Dim CurrentChart As Chart

Dim FName As String

FName = ThisWorkbook.Path & "\temp.gif"

Set CurrentChart = ThisWorkbook.Sheets("Charts").ChartObjects(ChartName).Chart

CurrentChart.Export Filename:=FName, filtername:="GIF"

FormCharts.ImgChart.Picture = LoadPicture(FName)

End Sub

Thanks hips KjBox It is working now!! Awesome!!