ワードでエクセルの表を図として貼りつけるマクロ

質問

ワードでエクセルの表を図として貼りつけるマクロを作りたいと思って、手で作ってみると
Sub Macro6()
Selection.PasteAndFormat (wdPasteDefault)
End Sub
となります。それを実行してみると、私の意図と異なります。どうしたらいいでしょうか？

回答No.1

enunokokoro · ベストアンサー

マクロ記録では既定の貼り付け形式としてしか記録されず、
PasteAndFormat (wdPasteDefault)
のようにデフォルト形式で貼り付けされるようです。
マクロ記録できない場合こともあるので、それを利用する
だけでは希望していることができないこともあるのです。

希望の貼り付け形式は、[ WdPasteDataType 列挙型]を
指定する方法なので、[ PasteSpecial メソッド]を使う
対応になります。
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.word.wdpastedatatype(v=office.11).aspx
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.word.selection.pastespecial(v=office.11).aspx

例：図（メタファイル）を指定する場合

Sub Macro6()

　Selection.PasteSpecial DataType:=wdPasteMetafilePicture

End Sub

例としたマクロでDataTypeを変えれば、別形式に変更が
できますので、いろいろ試してみてください。

お礼

とっても助かりました。これで懸案が解決されそうです。