Microsoft
Software
Hardware
Network
Question : Copying graphs from Excel 2007 to word 2007 using VBA
Hi Folks
I have an Excel spreadsheet that creates a few graphs and I want to automate a process of dumping them into a word document then saving that word document.
I have the code that does this already and it works well, problem is that when I attempt to enter my second chart it replaces the previous chart I pasted in Any help would be great, Iv got my code below
' paste in the first chart
Set oPara3 = oDoc.Content.Paragraphs.Ad
d(oDoc.Boo
kmarks("\e
ndofdoc").
Range)
oPara3.Range.Text = "Chart Number 1"
oPara3.Format.SpaceAfter = 6
oPara3.Range.InsertParagra
phAfter
' copy the chart from Excel
Sheets("ChartNumber1").Sel
ect
ActiveChart.CopyPicture _
Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
'paste into word document
oPara3.Range.Paste
'Paste in the second chart
Set oPara4 = oDoc.Content.Paragraphs.Ad
d(oDoc.Boo
kmarks("\e
ndofdoc").
Range)
oPara4.Range.Text = "2nd chart"
oPara4.Format.SpaceAfter = 6
oPara4.Range.InsertParagra
phAfter
Sheets("ChartNumber2").Sel
ect
ActiveChart.CopyPicture _
Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
oPara4.Range.Paste
Answer : Copying graphs from Excel 2007 to word 2007 using VBA
soultion is to use
oPara4.Format.SpaceAfter = 6
oPara4.Range.InsertParagra
phAfter
after pasting the chart in.
Random Solutions
Migrating SharePoint to another server
PHP Warning: Cannot modify header information
undeliverable SBS 2003 Alert message, but not really
ASA Static routing to Internal Router
HTML Cellindex showing wrong index while display:none
HP Web JetAdmin uses lots of RAM
Please wait while Windows configures Crystal Reports Release 2
Getfile in ASP
How do I modify textboxes/labels in an asp:repeater footertemplate through javascript (client side)
iPhone sounds on a web site ?