Сохранить созданный рисунок (гистограмму) на диск

    '1. Раннее связывание. Подключите библиотеку объектов Word:
        'Tools - References... - Microsof Word Object Library.
    'Создание нового экземпляра программы Word.
    Dim oWord As New Word.Application
    'Создание переменной для документа Word.
    Dim oDocument As Word.Document
    'Обращение к активному документу.
    Set oDocument = oWord.ActiveDocument
    
    '2. Позднее связывание:
    'Создание переменных для нового экземпляра программы Word
    'и документа Word.
    Dim oWord As Object
    Dim oDocument As Object
    'Создание нового экземпляра программы Word.
    Set oWord = CreateObject(Class:="Word.Application")
    'Обращение к активному документу.
    Set oDocument = oWord.ActiveDocument

Sub Procedure_1()
    'Подключите библиотеку объектов программы Word:
    'Tools - References... - Microsoft Word Object Library.
    Dim oWord As New Word.Application
    Dim oDocument As Word.Document
    
    Set oDocument = oWord.ActiveDocument
    
    Range("A1:C3").Copy
    
    oDocument.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=True, RTF:=True
 
End Sub

Dim oWord As New Word.Application