Excel to Word

[maheshrk81]

Hi All,

I need a macro for copying the Excel graph to word as picture.
In my woorkbook i have around 15 sheets and From that woorkbook i take few
charts and few data from several sheets and paste it as picture in outlook to send mail.

I copy those things as COPY AS PICTURE and paste it in Outlook. Now how to do this in macro??????

I need to automate this. plz help.
Very urgent..

Mahi

 

[maheshrk81]

Re: Excel to Word(Outlook)

Hi All,

I need a macro for copying the Excel graph to word as picture.

In my woorkbook i have around 15 sheets and From that woorkbook i need to take few charts from different sheets and few data from differentr worksheets and paste it as picture in outlook to send mail.

I copy those things as COPY AS PICTURE and paste it in Outlook. Now how to do this in macro??????

I need to automate this. plz help.
Very urgent..

Mahi

 

[maheshrk81]

Re: Excel to Word(Outlook)

Hi All,

PLEASE HELP....

I need a macro for copying the Excel graph to word as picture.

In my woorkbook i have around 15 sheets and From that woorkbook i need to take few charts from different sheets and few data from differentr worksheets and paste it as picture in outlook to send mail.

I copy those things as COPY AS PICTURE and paste it in Outlook. Now how to do this in macro??????

I need to automate this. plz help.
Very urgent..

Mahi

 

[maheshrk81]

Re: Excel to Word or Outlook

Hi All,

PLEASE HELP....

I need a macro for copying the Excel graph and Data to word or outlook for sending mails.

PLEASE HELP!!!!!!!!

Mahi

 

[Trevor G]

You can use bumb rather than keep repeating your thread.

Please let me know what ranges you need to use, are they all charts in your workbook.

Which version of Excel and Word are you using.

Does all of this need to go into a New Word Document for emailing out?

 

[maheshrk81]

Hi Trevor,

Thanks for repling. I am using Excel and Word 2010.
I have few charts and few as normal data. I copy chart from one sheet and paste it normal as image and then from another sheet i Copy Data as Copy as Picture.
Like i select the range from "B6:AD42" and copy as picture and paste it in word or outlook.

Now i need to automate this process. PLEASE HELP!!!!

Mahi

 

[Trevor G]

Mahi,

The following code will select a chart and copy it, then create a Word Document and paste as Picture. Then copy a range of cells and paste in the word document. So in your workbook use Alt + F11 and Insert a Module then copy this code.

You will have to tailor it to select the correct Chart and also range.

Sub wrdDoc()
'********************************************************
'The following code needs to set the Reference to Microsoft Word
'Tools Menu > References > Scroll down to Microsoft Word XX.Object Library > Tick the Box
'Created by Trevor G 28 July 2011
'********************************************************
Dim wrdApp As Word.Application
Set wrdApp = CreateObject("Word.Application")
ActiveSheet.ChartObjects("Chart 2").Activate 'You need to know which chart is to be selected
ActiveChart.ChartArea.Copy
With wrdApp
.Visible = True
.Documents.Add
'The next line will copy the Chart as a picture
.Selection.PasteSpecial Link:=False, DataType:=15, Placement:=wdInLine, DisplayAsIcon:=False
End With
Range("c1:i13").Copy 'Change the range to Copy for Word
With wrdApp
.Selection.EndKey Unit:=wdStory
'The next will give you 2 line spaces in Word
.Selection.TypeParagraph
.Selection.TypeParagraph
'The next will paste the table as a Picture
.Selection.PasteAndFormat (wdPasteDefault)
End With


End Sub

 

[maheshrk81]

Thanks a Lot.....