WordにExcelのグラフをコピーする方法

Option Explicit

Private Sub CommandButton1_Click()
    Dim tobj As Object
    Dim s As String
     
    'WordのActiveXオブジェクトへの参照を作成する
    Set tobj = CreateObject("Word.Application")
    '表示する
    tobj.Visible = True
    '新規文書を作成する
    tobj.documents.Add
    
    '表をコピー
    ActiveWorkbook.Worksheets("生産実績").Range("B5:H11").Copy
    '表をWordに貼り付け
    tobj.Selection.Paste
    
    'グラフをコピー
    ActiveWorkbook.Worksheets("生産実績グラフ").ChartObjects(1).Activate
    ActiveChart.ChartArea.Copy
    'グラフをWordに貼り付け
    tobj.Selection.Paste
    
    '終了処理
    MsgBox "Wordを表示しました。"
    '終了処理
    tobj.Quit
    Set tobj = Nothing
End Sub