View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
intoit intoit is offline
external usenet poster
 
Posts: 15
Default copy excel char to specific page in Word (VBA)

Hi,

I'm using Office 2003. Using VBA, I'd like to copy and paste a chart onto
page 6 of a Word document/template. The below code copies and pastes to page
1. Any ideas what I have to add to:
A) specify the page
B) specify the position of the chart on the page, and
C) give the chart a 'name' that can be referenced later within the macro
(i.e., rather than some arbitrary number that Word might give it).

Thanks for any ideas.

Sub copy_charts_Word()

Dim role_chart_sh As Shape

Dim MSW As Word.Application
Dim MSWfile As Word.Document

Set MSW = New Word.Application
MSW.Visible = msoCTrue
Set MSWfile = MSW.Documents.Open("C:\Report_template.doc")

Set role_chart_sh = Worksheets("Chart_Role").Shapes(1)
role_chart_sh.CopyPicture Appearance:=xlScreen, Format:=xlPicture

MSW.Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture,_
Placement:=wdInLine, DisplayAsIcon:=False

End Sub