Option Compare Database
Private Const conQuery = "Запрос1"
Private Sub Кнопка5_Click()
    Dim dg As Excel.Chart
    Set dg = Me.СвободныйOLE4.Object.Charts(1)
    dg.Shapes(1).Height = 10
    Dim xlapp As Excel.Application
    Set xlapp = dg.Application
    Dim xlBook As Excel.Workbook
    Set xlBook = xlapp.Workbooks.Add
    xlapp.DisplayAlerts = False
    For i = xlBook.Worksheets.Count To 2 Step -1
        xlBook.Worksheets(i).Delete
    Next i
    xlapp.DisplayAlerts = True
    Set xlSheet = xlBook.ActiveSheet
    Set rst = New ADODB.Recordset
    rst.Open _
     Source:=conQuery, _
     ActiveConnection:=CurrentProject.Connection
     xlSheet.Range("A1").CopyFromRecordset rst
     dg.SetSourceData xlSheet.Cells(1, 1).CurrentRegion
     dg.Refresh
End Sub

Private Sub Add_shape_btn_Click()

    Dim odg As Excel.Chart
    Set odg = Me.DG.Object.Charts(1)
    'odg.Activate
    
     Me.DG.Action = acOLEActivate 
    
    odg.Shapes.AddShape msoShapeRectangle, Fix(Rnd * 400), Fix(Rnd * 400), 50, 50
    ' Без этой строки не происходит перерисовка диаграммы
    odg.SetSourceData Me.DG.Object.Worksheets("Лист1").Cells(1, 1).CurrentRegion
    odg.Refresh
    
    Debug.Print odg.Shapes.Count
    
    Me.DG.Action = acOLEClose 
 
End Sub