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
Double Table when margin is adjusted
Server 2008 Minidump help needed
Filtering the SSRS report based on multivalue multiple parameters passed to stored procedure
sharing permission in Windows2003
mailbox move in exchange 2007
C# sharing variables or data between different classes
Drupal Menu - Custom Theming / API
Php 500 internal server error received on website but not using xampp at home
Hung Login Processing 'Printers' Group Policy on Win2K8 Std running in ESXi 4.x
Microsoft Access Database Engine 2010 Redistributable and "OpenRowSet"