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?
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?
> 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