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

It is probably best to use a field code. You add field code when you add a
caption to a picture using in word insert - reference - caption. You can see
the field codes by going to the word menu Tools - Options - View and select
field Codes.

to find out how to select a particula area of a word document I would
recommend asking the Microsoft Word Guru's. Word is much more difficult to
work with than an excel document.

I may be better to write the macro in word than in excel. Word can open an
excel document just like excel can open the word document.

"intoit" wrote:

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