How to show a PivotChart in UserForm

  • Hi experts,


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



    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.






  • You have not assigned a value to the ChartName variable.


    Either use the actual name of the chart you want to use, for example

    Code
    1. Set CurrentChart = ThisWorkbook.Sheets("Charts").ChartObjects("Chart1").Chart

    Or, if there is just the 1 chart on the Charts sheet you could use

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

    We now have a reputation system in place. If my reply helped please "Like" the reply by clicking the "Like" icon at bottom right of my reply.

  • 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

  • If you have already created a .gif image named "temp.gif" then you could be getting the error because you are attempting to create a second .gif image with the same name.


    Try killing the temp.gif file before exporting a new image

    We now have a reputation system in place. If my reply helped please "Like" the reply by clicking the "Like" icon at bottom right of my reply.