vbaを使用してxls文書から単語にコピー

Question

私は、PasteSpecialプロパティ（画像（拡張メタファイル）を使用して、xlsファイルからワード文書にチャートをコピーするコードを作成しようとしています。 。新しいものへの文書のチャートだから、私は、既存のチャートのためのブックマークを使用すると、OKだろうと思った私はOFFICE 2007年

を使用しています、私は次のコードを書いている：。

 Dim YMApp As Word.Application 
     Dim YMDoc As Word.Document 
     Dim B as Bookmark 
     paaath = "D:\" 
     dime = "NameOld.doc" 
     dime2 = "NameNew.doc" 
     Set YMApp = New Word.Application 
     YMApp.Visible = True 
     Set YMDoc = YMApp.Documents.Open(paaath & dime) 
     Word.Documents(dime).SaveAs (paaath + dime2) 
     For k = 1 To 6 
      Windows("New.xls").Activate 
      Sheets("graph").Select 
      Range("L" + Trim(Str(br(k))) + ":V" + Trim(Str(br(k) + 24))).Select 
      Selection.Copy 
      ddd = "bm" + Trim(Str(k)) 
      Set B = YMDoc.Bookmarks(ddd) 
      YMApp.Selection.PasteSpecial DataType:=wdPasteMetafilePicture, Placement:=B 
     Next k 
     YMDoc.Close 
     YMApp.Quit 
     Application.CutCopyMode = False 
     ActiveWorkbook.Close 
    End 
End Sub 

このコードでは、既に作成されているブックマークは認識されません。問題に対処するには

Answer 1

PasteSpecialのPlacement引数はBookmarkオブジェクトを受け付けません。

Set B = YMDoc.Bookmarks(ddd) 
YMApp.Selection.PasteSpecial DataType:=wdPasteMetafilePicture, Placement:=B 

代わりに、それはWdOLEPlacement constantかかります。

PasteSpecialを実行する前にブックマークを選択する必要があると思います。既存のグラフがあればそれを削除する必要があるかもしれません。

テストされていないが、私はあなたがこのような何かが必要だと思う：

Dim wdRange as Word.Range 
Set B = YMDoc.Bookmarks(ddd) 
Set wdRange = B.Range 

YMApp.Selection.GoTo What:=wdGoToBookMark, Name:=B.Name 

' Delete existing shapes & bookmark if any: 
On Error Resume Next 
YMDoc.ShapeRange(1).Delete 
wdRange.Delete 
On Error GoTo 0 
YMApp.Selection.PasteSpecial DataType:=wdPasteMetafilePicture, Placement:=0 'Or 1 

'Add the bookmark back in place: 
MDoc.Selection.Bookmarks.Add Name:=ddd, wdRange