Word VBA Code

[chandrashekar]

Hi,

am trying to paste excel graph to word using vbacode(using word) but I need to paste it in particular positions. May I know how to do it?

Please find below code which am using now.

Sub excel2word()

    
    Dim oExcel As Excel.Application
    Dim oWB As Workbook
    Set oExcel = New Excel.Application
    Set oWB = oExcel.Workbooks.Open("C:\Users\Chandra.char\Desktop\Test\VR.xls")
    oExcel.Visible = True
    oWB.Sheets("ViolationCount_Week").Select
    

    Set Chart = oWB.Sheets("ViolationCount_Week").ChartObjects("Chart 6")
    Chart.Copy
    'Chart.ChartArea.Copy
    With ActiveDocument.Sections(1).Range
       .PasteSpecial Link:=False, DataType:=wdPasteBitmap, _
            Placement:=wdInLine, DisplayAsIcon:=False
    End With
    
    Set oExcel = Nothing
    Set oWB = Nothing
    Set Chart = Nothing
End Sub

 

[Macropod]

I am getting error in The requested member of the collection does not exist in line
ActiveDocument.SelectContentControlsByTitle("Chart")(1).Range.Paste

As I said in post #8:

Where the content control's title is 'Chart'. Note that the content control must exist in the document before running the macro.

Did you insert a picture content control into the document and title it 'Chart' before running the macro? The error message suggests not.

 

[chandrashekar]

Hello,

Yes. am trying to paste excel chart to word.


Regards,

Chandru

 

[Macropod]

The code works just fine in my testing, so I can only conclude you have miss-named the content control or that it doesn't exist in the active document.

 

[chandrashekar]

Hello,

Shall I send the files to your personnel id?


Regards,

Chandru

 

[Macropod]

No, you can't do that. If you want someone to look at them, upload them to a OneDrive or another file hosting site and post a link here.

 

[chandrashekar]

Ohk. Will come back you.

Regards,

Chandru