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

Excelのグラフを、Wordにコピーします。
クリップボードを使用する方法です。

Excel Tipsメニューに戻る

スポンサードリンク



実行画面

生産実績のExcelシートを使います。
コピー元Excelの生産実績表とグラフです。
生産実績グラフ

Wordに貼り付けた画面です。
表→グラフでコピーしたので、その順で貼り付けられています。
貼り付けた生産実績グラフ

スポンサードリンク



実行コード

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

Excel Tipsメニューに戻る

スポンサードリンク





■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved