Private Sub UpdateChart() 'Получить Диаграмму по выбранным: Имени Листа и Номеру Диаграммы

   'Удаление временного GIF-файла, если он создавался ранее
    Dim FullName As String
    FullName = ThisWorkbook.Path & "\temp.gif" 'png-PNG  gif-GIF  jpeg-JPEG
    If Dir(FullName) <> "" Then  Kill ThisWorkbook.Path & "\temp.gif"
'---------------------------------------------------------------------------------------------
   'Создание нового врЕменного GIF-файла
     Dim CurrentChart As Chart, Fname As String
     Set CurrentChart = ThisWorkbook.Worksheets(nameSheet).ChartObjects(numberChart).Chart

'   Сохранение диаграммы в виде GIF-файла
     Fname = ThisWorkbook.Path & "\temp.gif"
     CurrentChart.Export FileName:=Fname, FilterName:="GIF"
     
    If FileLen(Fname) <> 0 Then
       'Отображение диаграммы
       Image1.Picture = LoadPicture(Fname)
    Else
       MsgBox "Временный Файл создан с нулевым размером. Попробуйте ещё раз.", vbExclamation, "К сведению"
    End If
End Sub