답변:
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