Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Mailmerge and Fax / April 2004

Tip: Looking for answers? Try searching our database.

Inserting charts & graphs into Word questions

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Judy Heebner - 29 Mar 2004 17:18 GMT
1. How can I insert many Excel charts and graphs into Word
without dramatically increasing the size of the Word
document while maintaining a high quality image? 2. Also,
how do I insert a chart or graph created in Excel into a
Word document and ensure that the chart cannot be
manipulated in Word?
macropod - 31 Mar 2004 11:44 GMT
Hi Judy,

1. Insert the charts/graphs into Word as linked objects instead of embedding
them. Select the chart in Excel, copy it and then, in Word, select
Edit|Paste Special and choose the 'paste link' option. This minimises file
size and also has the effect that changes to the source workbook will be
reflected in the document.

2. For that level of security, you should consider converting the document
to a pdf file using Adobe Acrobat or something similar.

Cheers

> 1. How can I insert many Excel charts and graphs into Word
> without dramatically increasing the size of the Word
> document while maintaining a high quality image? 2. Also,
> how do I insert a chart or graph created in Excel into a
> Word document and ensure that the chart cannot be
> manipulated in Word?
Dave Stauffer - 02 Apr 2004 21:03 GMT
> 1. How can I insert many Excel charts and graphs into Word
> without dramatically increasing the size of the Word
> document while maintaining a high quality image? 2. Also,
> how do I insert a chart or graph created in Excel into a
> Word document and ensure that the chart cannot be
> manipulated in Word?

Don't know whether this helps or not, but it sounds similar to
something I have been struggling with. It's in a macro. Here is the
relevant part
.
.
.
 Set wbk = GetObject(tmplDoc.Path & "\BenefitChart.xls")
 wbk.Sheets("Sheet1").Activate
 With wbk.ActiveSheet
   .Cells(2, 2).Value = vGross
   .Cells(3, 2).Value = vPension
   .Cells(4, 2).Value = v401k
   .Cells(5, 2).Value = vSocSec
   .Cells(6, 2).Value = vHealth
   .Cells(7, 2).Value = vLife + vDeath
 End With
 wbk.Charts("Chart1").Activate
 wbk.ActiveChart.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
 wbk.Saved = True
 wbk.Close

 Selection.Find.ClearFormatting
 With Selection.Find
     .Text = "Insert Chart1"
     .Replacement.Text = ""
     .Forward = True
     .Wrap = wdFindContinue
     .Format = False
     .MatchCase = False
     .MatchWholeWord = False
     .MatchWildcards = False
     .MatchSoundsLike = False
     .MatchAllWordForms = False
 End With
 Selection.Find.Execute
 Selection.PasteSpecial Link:=False,
DataType:=wdPasteMetafilePicture, _
 Placement:=wdFloatOverText, DisplayAsIcon:=False
.
.
.

Basically, I update the worksheet with new values, copy the chart as a
picture, then close it.
I find the spot in the document tagged "Insert Chart1", select it,
then
paste as a picture. Since the graph in the document is no longer
linked to the spreadsheet, it can't be manipulated, and any subsequent
changes I make to the worksheet have no effect on my document.

Hope that helps. Good Luck!

--Dave
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.