Excel의 이미지를 Microsoft Word에 어떻게 배치 할 수 있습니까?


0

Excel 파일에 이미지 링크가 10 개 있고 Microsoft Word 문서에 10 페이지가 있습니다. Microsoft Word 문서에서 각 이미지를 가져오고 싶습니다. .xls 파일을 작성한 후 .doc 파일.

이 작업을 수행하는 방법에 대한 조언이 필요하십니까? 나는 perl / python 스크립트가 할 수있는 것을 알고 있지만 Microsoft Office에보다 사용자 친화적 인 옵션이 있는지 알고 싶습니다. 감사!


예제 파일을 제공 할 수 있습니까?
wysiwyg

답변:


0

Excel에서이 VBA 매크로 코드를 사용하여 하나의 Excel 시트에서 Word 문서로 29 개의 차트를 복사했습니다.

차트가 아닌 이미지가있는 경우 다음 행을 변경해야합니다.

ActiveSheet.ChartObjects(i).Activate
ActiveChart.ChartArea.Copy

당신이 가지고있는 데이터 타입을 선택하고 복사하는 것.

Sub copycharts()

Dim word As Object
Dim doc As Object
On Error Resume Next

Set word = GetObject(, "word.application") 'gives error 429 if Word is not open
If Err = 429 Then
   Set word = CreateObject("word.application") 'creates a Word application
   Err.Clear
End If

With word
   .Visible = True
   .Documents.Add
End With

Sheets("charts").Select
i = 29
Do While i > 0
   ActiveSheet.ChartObjects(i).Activate
   ActiveChart.ChartArea.Copy
   With word.Selection
    'Paste Chart
   .Range.PasteSpecial Link:=False, DataType:=14, Placement:=wdInLine, _
       DisplayAsIcon:=False
   End With
i = i - 1
Loop
End Sub
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.