Copying excel charts into word

[mawjcullen]

As stated above my problem is that the code as recommended by a previous post on this subject doesn't work because I am creating the Word document and so do not have any bookmarks to use as a range. What can I do? The problem is the PasteAndFormat line. I get a command Not Available comment back

Dim objApp As Word.Application
Dim Chart1 As Variant

Set objApp = CreateObject("Word.Application")
objApp.Options.SavePropertiesPrompt = False


With objApp
.Visible = True
.Documents.Add

Set Chart1 = ActiveSheet.ChartObjects(1)
Chart1.Copy

.Selection.PasteAndFormat Type:=13
End With


objApp.Quit

 

[Andrew Poulsom]

Depending on what you want, try:

Selection.Paste

Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdFloatOverText, DisplayAsIcon:=False

Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement _
:=wdFloatOverText, DisplayAsIcon:=False

That's what the (Word) macro recoreder gave me when I pasted an Excel chart into a new document.

 

[Andrew Poulsom]

Depending on what you want, try:

Selection.Paste

Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdFloatOverText, DisplayAsIcon:=False

Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement _
:=wdFloatOverText, DisplayAsIcon:=False

That's what the (Word) macro recoreder gave me when I pasted an Excel chart into a new document.