Brugerflade med 2 grafer

Hej, E

Jeg har en brugerfalde hvor jeg skal have 2 grafter, der begge ligger i Ark1 og hedder diagram1 og diagram2. Hvad skal jeg skrive når jeg vil have nummer 2 diagram med. Med et diagram ser formlen sådan ud:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then
    Cancel = True
    End If
   
    '***** Kill ThisWorkbook.Path & Application.PathSeparator & "temp.gif" **** Skal evt. med!

End Sub

Private Sub UpdateChart()
    Dim CurrentChart As Chart
    Dim Fname As String
   
    Set CurrentChart = Sheets("Ark1").ChartObjects(1).Chart    'ændret
    Set CurrentChart = Sheets("Ark1").ChartObjects("Diagram 2").Chart  'alternativ
'  Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"

'  Show the chart
    Image1.Picture = LoadPicture(Fname)
End Sub