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
Cannot use "Unallocated Space"
Microsoft Live Meeting Recordings Locally
confused about forms in Visual Studio Designer
Changing charset on a Mysql database
Receive connector Permission Groups
Exchange 2010 Stopped working after replacing a motherboard on the server!?
Built-In Webcam Stopped Working on Lenovo ThinkPad
Best way to send mass e-mail (one-offs not newsletters)
TWAP strategy
sort varchar