|
こんにちは、いつも参考にさせていただいています。
エクセルで作ったグラフ数個をワードに一個ずつ順番に貼り付けるプログラム
を作っているのですが、ワードを立ち上げ、グラフをコピーするところまでは
なんとかできたのですが肝心の貼り付け部分がよくわかりません・・・
どなたかよろしくアドバイスお願いしますm(__)m
Sub CopyAll()
Dim XLS As Excel.Workbook
Dim DOC As Word.Application
'ワードの文章を新規作成で開く
Set DOC = CreateObject("Word.Application")
With DOC
.Visible = True
.Documents.Add
.Visible = False
End With
Sheets("Sheet1").Shapes.Range("任意でグラフを選択").Select
Selection.Copy
DOC.Visible = True
/////////////////
???
/////////////////
End Sub
|
|