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
OOP, classes, accessor/mutator question (newbie)
InDesign CS3: Select a specific text frame
Difference between using file sharing under a Home Network and a Work Network????
Printing problems in Outlook - incomplete printout
Single Sign on for RemoteAPPs in Windows 2008 R2 terminal server
Setting msExchMailboxSecurityDescr
iptor with VB.NET
How to parse XML string in Oracle procedure ?
Deleting records from an Oracle database using SQL based on timestamps using SAS SQL passthrough
TSQL HMAC function
External Hard drives