Pastespecial as Picture(Enhanced Metafile)

[paddysheeran]

Hi All,

Im currently writing some code to copy tables fom excel into word. When doing this manually I currently use the PasteSpecial > Picture (Enhanced Metafile) but I cant find the code anywhere for this after a lot of searching on the net. Does anyone have a quick solution for this. The current code I'm using which is not working is:

Sub WR_Response_Time()
Set wsSource = ActiveWorkbook.Sheets("Response Time")

Set t = wdDoc.Bookmarks("ResponseTime_ResponseTime").Range
wsSource.Activate
Set Rng = Range("B4:R10")
Rng.Copy
t.PasteSpecial DataType:=wdPasteEnhancedMetafile

End Sub

thanks in advance.

paddy.

[fumei]

Can you tell us what is "not working"?

Sub yaddaPaste()
Dim r As Range
Set r = ActiveDocument.Bookmarks("blah").Range
r.PasteSpecial datatype:=wdPasteEnhancedMetafile
End Sub
works for me.

You do not seem to be declaring your variables. What is t? It MUST be declared as Word.Range.

[paddysheeran]

The variables are declared in a previous sub that leads onto this one.

The code runs through fine but the final picture of the table from excel is small and does not pan the length of the page like it does when the process is completed manually.

[fumei]

So t and wsSource are global (Public) variables?

I can not duplicate the problem. It works for me.

[paddysheeran]

attached should show what I mean....

[paddysheeran]

and yes the variables are public.

[paddysheeran]

Solved it. The following needs to be applied:

t.PasteSpecial DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine

[fumei]

Thanks for posting the solution. I am guessing Placement must be a default.