Show / Send Copy of Charts into the User Form

[ChrisOK]

When file is opened the 1st user form says "Welcome" - giving user the option to enter their new monthly metrics (numbers/results) by clicking on "ENTER METRICS"... or click on the "VIEW CHARTS" button to go look at the 4 square of charts.

The xls. file has 1 tab that holds the database of user input for the year...
The tab that holds the 4 charts is in: "RE_CHARTS" ...
The chart names are: CYCLE TIME, EFFICIENCY, TIMELINESS & QUALITY
They are arranged in a 4-square on the .xls tab

I'd like this to happen:
When the user clicks on the CHARTS BUTTON, he's taken to the charts userform and a snapshot of what those charts look like will be sitting there to view. (sent from the charts TAB called: "RG_CHARTS" to the USERFORM called: "frmRGCHARTS"

Does anyone know VBA code to accomplish this?
I'm new to VBA and am trying to piece all of this together...
Thank you VERY much! Chris

Here's my Welcome form code:

Private Sub cmdCharts_Click()
    frmRGWelcome.Hide
    frmRGCharts.Show
End Sub

Private Sub cmdMetric_Click()
    frmRGWelcome.Hide
    frmRGUserEntry.Show
End Sub

[DKenny]

the easiest way to do this to export a copy of each chart as a picture and them import them into your form. The code below will achieve this.
I am including it in the _Initialize event of the form, but if you need to refresh teh charts, you should encapsulate it in a seperate sub and call it from the _Initialize event.

Private Sub UserForm_Initialize()
Dim myChart As Chart
Dim TmpFileName As String
        
    ' The temporary file used to store the picture of
    ' the chart
    TmpFileName = ThisWorkbook.Path & "\tmpChart.gif"
    
    '-----------------------------------------------
    ' Repeat this block for each image and its chart
    '-----------------------------------------------
    
    ' 1 Get a reference to the chart to copy
    Set myChart = Worksheets(1).ChartObjects(1).Chart
    
    ' 2 Export a copy of the chart as a GIF file
    myChart.Export Filename:=TmpFileName, FilterName:="GIF"
    
    ' 3 Import the GIF file to the coresponding control
    ' on my form
    Me.picChart1.Picture = LoadPicture(TmpFileName)
    
    'Repeat the 3 steps above for each chart
    
    '-----------------------------------------------
    ' Afert all charts are copied then delete the
    ' temp file and object variable
    '-----------------------------------------------
    Kill TmpFileName
    Set myChart = Nothing
End Sub

[ChrisOK]

I'm getting: COMPILE ERROR - Method or Data Member Not Found
I took out all but 1 chart prior to running to test the posted code without
the need for duplication (for several charts)

When I click ok,
The 'Private Sub UserForm_Initialize()" is highlighted in yellow and
The "picChart1" is highlighted in blue

    ' 3 Import the GIF file to the coresponding control
    ' on my form
    Me.picChart1.Picture = LoadPicture(TmpFileName)

Any ideas why this is generating?
I tried to hit F9 (add breakpoint) then re-ran to try to step through w/ F8 but the same thing noted above happens)

[DKenny]

picChart1 as the name of the image control I used when writing the code above. You need to change it to the name of your image control.