「マイクロソフト オフィス97プロ」CD-ROM
Officeフォルダ→Examplesフォルダ→Samples.xlsの「Officeオートメーション」より
' このサンプルは、このサンプルファイルの "散布図へのラベルの追加”ワークシート上の
' グラフを、Microsoft Word に貼り付けます。
'
'
Sub MS_Word()
Dim wd As Object
    'Microsoft Word への参照を作成します。
    Set wd = CreateObject("word.application")
    'グラフをコピーします。
    Worksheets("散布図へのラベルの追加").ChartObjects(1).Chart.ChartArea.Copy
    'MS Word を表示します。
    wd.Visible = True
    'MS Word をアクティブにします。
    AppActivate wd.Name
    With wd
        'MS Word で新しい文書を開きます。
        .Documents.Add
        '段落を挿入します。
        .Selection.TypeParagraph
        'グラフを貼り付けます。
        .Selection.PasteSpecial link:=True, DisplayAsIcon:=False, Placement:=wdInLine
    End With
    Set wd = Nothing
End Sub