워드 문서로 여러 차트 복사

Question

한 시트에 일련의 차트를 한 단어로 복사하려하지만 어떤 이유로 최신 붙여 넣기 만합니다 (시트의 마지막 차트를 의미).

: 나는 반복 나는 그것이 그렇게 각 차트에 대해 하나의 워드 문서를 인쇄 할 수있는 코드를 modofiy becausewhen 모든 차트를 통해가는 것을 알고,하지만 난 함께 차트를 ​​원하므로

코드를 좀 도와주십시오 당신은 전체 문서 대신 현재 단락에 차트를 붙여 상황에서

WDApp.Selection.Range.PasteSpecial ... 'and so on 

:

Sub ChartsToWord() 

Dim WDApp As Word.Application 
Dim WDDoc As Word.Document 
Dim iCht As Integer 
Dim Msg As String 

Set WDApp = CreateObject("Word.Application") 
Set WDDoc = WDApp.Documents.Add 

For iCht = 1 To ActiveSheet.ChartObjects.Count 
    ' copy chart as a picture 
    ActiveSheet.ChartObjects(iCht).Chart.CopyPicture _ 
     Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture 


    WDDoc.Content.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _ 
     Placement:=wdInLine, DisplayAsIcon:=False 

    WDDoc.Content.InsertParagraphAfter 
Next 
WDDoc.SaveAs ("C:\Users\confidential\Documents\charts.doc") 
    WDDoc.Close ' close the document 

' Clean up 
    Set WDDoc = Nothing 
    Set WDApp = Nothing 

End Sub 

Answer 1

에 PasteSpecial 라인의 시작을 교체하십시오.

또 하나의 제안입니다. 새 단락을 삽입하려면 다음을 사용할 수 있습니다.

WDApp.Selection.MoveEnd wdStory 
WDApp.Selection.Move