insert an Excel chart into a word Document ??

if you have a chart which is contained in a specific sheet in the spreadsheet, How do you place the CHART AREA in the word doc ? What am I trying to accomplish ? I have stored with in spread sheet sheets chart objects and would like to insert these charts in to a mail merge doc., that is to say chart 1 from sheet1 is placed om page1 of the doc chart2 from sheet will be placed on page 2 of the doc...and so on

Using D 5.01 Pro and Late binding.
None of the server components have been used.
Paul sutton

Hello,
You should do a cut and paste,
here is a sample that shows how to create a chart with excell and we copy paste it to a word doc.
we are assuming that we are already connected to excell.
the word connxion is done here.
here we goes :

procedure TfmMain.btExample5Click(Sender: TObject);
var
WorkBook,Sheet1,Sheet2,Chart:variant;
Sheet,SeriesCollection:Variant;
vrange:variant;
WD,WordDocument,wRange,Shape:variant;
i,j:integer;
begin
Excel.SheetsInNewWorkbook := 2;
WorkBook:=Excel.Workbooks.Add;
Sheet1:=WorkBook.WorkSheets[1];
Sheet2:=WorkBook.WorkSheets[2];
Chart:=WorkBook.Charts.Add;
Sheet1.Name:='Table 1';
Sheet2.Name:='Table 2';
for j:=1 to 2 do begin
Sheet:=WorkBook.WorkSheets[j];
for i:=1 to 11 do begin
Sheet.Cells.Item[i,1].Value:=i;
Sheet.Cells.Item[i,2].Value:=i*2;
end;
end;
vrange:=Sheet1.range['A1:A10'];
SeriesCollection:=Chart.SeriesCollection;
SeriesCollection.Add(vrange);
vrange:=Sheet2.Range['B1:B10'];
SeriesCollection.Add(vrange);
Chart.Select;
Excel.Selection.Copy;
WD:=CreateOleObject('Word.Application');
WordDocument:=WD.Documents.Add;
if Chart.PageSetup.Orientation=xlLandscape
then WordDocument.PageSetup.Orientation:=wdOrientLandscape
else WordDocument.PageSetup.Orientation:=wdOrientPortrait;
for i:=1 to 5 do begin
WordDocument.Paragraphs.Add;
end;
wRange:=WordDocument.Range(0,1);
wRange.Paste;
showmessage(inttostr(WordDocument.Shapes.Count));
// Shape:=WordDocument.Shapes.Item(WordDocument.Shapes.Count);
// Shape.Height:=round(0.75*Shape.Height);
wRange:=WordDocument.Range(2,2);
wRange.Text:='Chart From Excel ';
WD.visible:=true;
WD:=unassigned;
end;

---

to connect to excell :
procedure TfmMain.btExcelConnectClick(Sender: TObject);
var
Excel1:variant;
begin
try
Excel1:=GetActiveOleObject('Excel.Application');
Excel:=Unassigned;
Excel1:=Unassigned;
Excel:=GetActiveOleObject('Excel.Application');
isConnected:=true;
except
Excel:=Unassigned;
showmessage('Active Excel not found');
end;
RefreshInfo;
SetForegroundWindow(Handle);
end;

if you give me an email, i'll send you the whole project doing excell automation stuff.
I can't remember where I found so I'm unable to give you the link...
Regards.

LVL 4

jeurkConnect With a Mentor Commented: 2000-04-27

LVL 13

EpsylonCommented: 2000-04-26

Just a thought, maybe you could build a macro that does the main part of the job. Then this macro can be called from Delphi...

Look here for info on Excel and Word automation:

http://www.djpate.freeserve.co.uk/Automation.htm

Regards,

Epsylon.

psuttonAuthor Commented: 2000-04-26

Macros are out at least at this time.

Adjusted points from 400 to 600

LVL 11

robert_marquardtCommented: 2000-04-26

Do it in Word and record it as macro. Then have a look at the macro source. Reimplementing this in Delphi should be easier then.

psuttonAuthor Commented: 2000-04-27

Thanks. Your answer was prety much what I had in mind, I just didn't know how to get the different charts in to word.
email addr is psutton0623@yahoo.com

jeurkCommented: 2000-04-27

You're welcome. I sent it.
-Jeurk.

Expand your skills with this month's free Premium course.

insert an Excel chart into a word Document ??

Who is Participating?

Already a member? Login.