Создание диаграммы в VBA

Question

В общем проблема такая, надо написать код создание диаграммы! Данные диаграммы берутся с выделенного слоя!! Найден примерный код диаграммы, но проблема в том что он её готовит но не выдает на экран!!
А нужно чтоб с нажатия кнопки диаграммы выводилась на экран!!! Мне сказали что нужно толи что-то изменить , толи вставить с командой (display)!! всем спасибо заранее!!!

КОД 
    Public Sub CreateNewChart()
    Dim pMxDoc As IMxDocument
    Dim pDataGraph As IDataGraph
    Dim pDataGraphProperties As IDataGraphProperties
    Dim pGraphWindow As IDataGraphWindow
    Dim pDataGraphs As IDataGraphs

    Set pMxDoc = Application.Document
    If pMxDoc.SelectedLayer Is Nothing Then Exit Sub
    If Not TypeOf pMxDoc.SelectedLayer Is IFeatureLayer Then Exit Sub
    
    'Create a new graph
    Set pDataGraph = New DataGraph
    
    'Set the default Table, DataGraph will select a default graph type and some fields
    Set pDataGraph.Table = pMxDoc.SelectedLayer
    
    'Specifically give the chart a name and title
    pDataGraph.name = pMxDoc.SelectedLayer.name & " Chart"
    Set pDataGraphProperties = pDataGraph 'QI
    pDataGraphProperties.Title = "My Chart"
    pDataGraphProperties.ShowXAxisLabels = True
    pDataGraphProperties.ShowLegend = True
    pDataGraphProperties.SubTitle = pDataGraph.FieldSet1 & " vs. " & pDataGraphProperties.XAxisLabelField
    
    'Associate the data graph with a data graph window
    Set pGraphWindow = New DataGraphWindow
    Set pGraphWindow.DataGraph = pDataGraph
    Set pGraphWindow.Application = Application
    
    'Add the graph to the system
    Set pDataGraphs = pMxDoc 'QI
    pDataGraphs.Add pDataGraph
End Sub