' Сохраняем диаграмму как рисунок в текущей папке:

Set CurrentChart = Sheets("Data").ChartObjects( 1 ).Chart
Fname = ThisWorkbook.Path & "\temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"

' открываем диаграмму в Image1 размещенной на форме
' при сохранении выскакивает сообщение

Image1.Picture = LoadPicture(Fname)

' пример для диапазона B2:B13
Sub CreateChart()
    Dim Chart1 As ChChart 'WCChart
    Dim Series1 As ChSeries 'WCSeries
    Dim r As Integer
    Dim XValues( 1  To  12 )
    Dim DataValues( 1  To  12 )
' добавить диаграмму в ChartSpace
    Set Chart1 = ChartSpace1.Charts.Add
' присвоить диаграмме имя
    With Chart1
        .HasTitle = True
        .Title.Caption = Range("B1")
    End With
    For r =  2  To  13 
        XValues(r -  1 ) = Cells(r,  1 )
        DataValues(r -  1 ) = Cells(r,  2 )
    Next r
' Создать ряды
    Set Series1 = Chart1.SeriesCollection.Add
' Добавить данные
    With Series1
        .Type = chChartTypeColumnClustered
        .SetData chDimCategories, chDataLiteral, XValues
        .SetData chDimValues, chDataLiteral, DataValues
    End With
End Sub